Информатика, вопрос задал timuriosan2 , 2 года назад

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


timuriosan2: без оператора While пожалуйста (
timuriosan2: вернее без uses crt
timuriosan2: с While)

Ответы на вопрос

Ответил allangarsk
1
var fa,i,n:integer;beginReadln(n);fa:=1;while fa < n do begini:=i + 1;fa:= fa * i;write(fa:4);end;writeln;write(i-1);end.
Новые вопросы