1)напишите программу, которая считает количество четных цифр введенного числа 2) напишите программу, которая вводит с клавиатуры натуральное число n и определяет его факториал, т. е. произведение натуральных чисел от 1 до n: n! =1×2×3××n. что будет, если ввести большое значение n (например, 20)? 3) напишите программу, которая вводит натуральные числа a и n и вычисляет a^n.

в одном часе 3600 секунд. за час произойдёт 3600*10^6 операций.

чтобы выполнить их на арифмометре (не завидую тому, кто решится так делать), потребуется

3600*10^6*10 секунд = 10^7 часов или примерно 1141 год

program 1;

var i, dlina, shirina, visota,  n, s, v : integer; beginwriteln(’введите число залов‘); readln (n); for  i: =1  to  n  do  beginwriteln(’введите длину,ширину и высоту зала‘); readln (dlina, shirina, visota); s: =dlina*shirina; v: =s*visota; writeln(‘площадь  пола=’,s,’  объем  зала=‘,v); endend.

если это 8-9 класс, то должно быть

n=2^b, где b=7 (по условию )

var a : real;

begin 

  readln(a);

  if a> =0 then writeln(a-50) else writeln(a+100);

end.