Задача в Pascal , пожалуйста помогите. Дано натуральное число N . Найти наибольшее число...

0 голосов
28 просмотров

Задача в Pascal , пожалуйста помогите. Дано натуральное число N . Найти наибольшее число , факториал которого не превосходит N .
Задача с циклами
Пожалуйста)


Информатика (36 баллов) | 28 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program ex;uses crt;var N, i : integer;
function f(x:integer):integer;var i,n:integer;beginn:=1;for i:=1 to x dobeginn:=n*i;end;f:=n;end;

begin  read(N);  for i:=1 to N do  begin    if f(i) > N then      begin        write(i-1);        break;      end;  end;end.

(440 баллов)
0

В Паскале выдает ошибку(((( к сожалению

0

ABC Pascal?

0

в чем ошибка7