Question

Решите пожалуйста информатику 2 и 3 задание тема pascal 

290875ce4ddc573ba0c56e14585d13e8.doc

Answer 1

Задача 3:
readln(n);

i:=1 ;
s:=0;

while i <= n do
begin
s:= s * i;
i:= i + 1;
end;
writeln(s);