Пожалуйста помогите. Паскаль читать задание ниже (Все на фотографии)
Пожалуйста помогите. Паскаль читать задание ниже (Все на фотографии)
Гость
Ответ(ы) на вопрос:
Гостьvar m, f, f1: longint;
begin
readln(f);
f1:= 1;
while f1 <> f do
begin
inc(m);
f1:= f1 * m;
end;
writeln(m);
end.
Не нашли ответ?
Похожие вопросы