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