Социальный опрос. Напишите как обычный человек, ответы и свой год рождения, нужно для проекта по информатике. 1. Интересна ли вам история развития информатики?

2.Знаете ли вы, с чего началась информатика?

3. Знаете ли вы, почему информатика так называется?

4. Знаете ли вы кто является основоположником информатики?

5. Считаете ли вы, что при изучении информатики нужно знать ее историю?

6. Как вы думаете, отличалась ли информатика нынешняя от информатики при её появлении

7. Считаете ли вы что вы что информатика необходима?

8. Знаете ли вы, для чего нужна информатика?

9. Как вы считаете, нужно ли знать историю информатики людям далёким от нее

10. Как вы думаете, важна ли людям работающим в сфере информатики её история?

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)   
    then     
       Begin       
            a:=a+2;
            b:=b+2; 
             writeln('a = ',a); 
             writeln('b = ',b); 
        end
else 
      if (a>0) and (b<0)     
        then       
           writeln('a*b = ',a*b)
      else 
           if (a<0) and (b>0)     
                then        
                   writeln('b-a = ', b-a)

           else  writeln('Ни одно условие не выполняется');

readln;
end.

//PascalABC
//NaaMan
var
    N, sum, num, i : integer;
    A : array[1..10000] of integer;
    SA : real;
begin
    write('Укажите, сколько будет чисел > ');
    readln(N);
    write('Вводите элементы массива > ');
    // Обнуляем сумму
    sum := 0;
    // и количество искомых элементов
    num := 0;
    // Ввод элементов массива с одновременным подсчетом
    for i := 1 to N do begin
        // Ввод
        readln(A[i]);
        write('Ещё > ');
        // Если введённое нечётное, то
        if A[i] mod 2 = 1 then begin
            // добавляем к сумме
            sum := sum + A[i];
            // и считаем их количество
            num := num + 1;
        end;
        // Это среднее арифметическое
        SA := sum / num;
    end;
       
    writeln('Сумма элементов ', sum);
    writeln('Среднее арифметическое ', SA);
end.