Решите пожалуйста информатику 2 и 3 задание тема pascal
Решите пожалуйста информатику 2 и 3 задание тема pascal
Гость
Ответ(ы) на вопрос:
ГостьЗадача 3:
readln(n);
i:=1 ;
s:=0;
while i <= n do
begin
s:= s * i;
i:= i + 1;
end;
writeln(s);
Не нашли ответ?
Похожие вопросы