1. Вычислите, используя ячейку памяти: а) (12 + 34) * (56 + 78) б) (1191 + 187) : (17 + 89) 2. Запишите числа в научном (экспоненциальном) формате: а) 0, 000000123 3. Вычислите а) 1/2 + 1/3 + 1/4 + 1/5 + 1/6 б) (2, 5 + 3, 765)  (3, 782 – 1, 976) в) 13, 826 – (7, 83 + 12, 35) : 4 Уровень C. 4. Определите, сколько раз нужно а) умножить 1 на 2, чтобы получить 65536 б) разделить 14348907 на 3, чтобы получить 1 5. Найдите число, квадрат которого равен заданному: а) 6241 б) 974169 6. Попробуйте догадаться, что получится, если в этой сумме учесть очень много слагаемых (скажем, 1000000): 1/2 + 1/4 + 1/8 + 1/16 + 1/32 + 1/64 + 1/128 + … ответ:

 

Program Num3;

Uses Crt;

var a,b,c,n,s:integer;

 

begin

     clrscr;

     write('Введите 3 числа: ');

     readln(a,b,c);

     n:=0;s:=0;

     if (a mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+a;

             end;

 

if (b mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+b;

             end; 

 

 

if (c mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+c;

             end;

  if (n=0) then writeln('Нету чётных чисел вообще !! ')

          else  writeln('Количество чётных чисел:',n,'Их сумма: ',s);    

    readkey;

 

end.