var
a : integer;
fac : BigInteger := 1;
begin
readln(a);
if a > 0 then for var i := 1 to a do fac *= i;
writeln(a, '!=', fac);
end.
2,3,4-это 3 строки.3*3=9.ОТВЕТ:9 ЯЧЕЕК
Я так понял тебе нужно на паскале, тогда держи:
program dataScience;var x,y,z, sum: integer;beginsum:=0;read(x, y, z); if x=>0 then//проверка на положительность x if y=>0 then//проверка на положительность y if z=>0 then//проверка на положительность z sum:=(x+y+z)/3;//счёт среднего writeln(sum);//вывод среднего арефметического end.
800:8 = 100 байт/с
35*60 = 2100 с
2100*100 = 210000 байт (за 35 мин)
210000/10 = 21000 ч