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

Question

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

---

Скачать вложение Word (DOC)

Comments

и блок-схему еще пожалуйста

Answer 1

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

i:=1 ;
s:=0;

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