1. Информатика
  2. Вpascal , . дано натуральное

Вpascal , . дано натуральное число n . найти наибольшее число , факториал которого не превосходит n

Ада20000 Ада20000    2   21.09.2019 07:10    1

Ответы
shantropa33 shantropa33  10.09.2020 13:23
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Lenoucik1 Lenoucik1  17.06.2019 06:10
Плс надо! (pascal abc) найти среднеорифметическое всех простых чисел на отрезке от -а до в...
роза266 роза266  28.07.2019 01:10
Выполнить сложение двоичных чисел: x=1011,1 ,y=1101,01 и z=11101,11...
Petrovaaleksanik Petrovaaleksanik  09.03.2021 12:48
Если не трудно не трудно а у меня сейчас нету времени...
АняГоловко0208 АняГоловко0208  09.03.2021 12:49
Два игрока, Сергей и Анатолий, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Сергей. За один ход игрок может из...
Easy11111 Easy11111  09.03.2021 12:51
Что рассчитывается при выполнении заданного фрагмента кода? А = [59, 87, 3 ,7 ,-35 ,67 ,-26, 7, 78.k=0for n in Aif n %2 = 2:k+2print (k) ​...
2001snk 2001snk  09.03.2021 12:51
Что такое компьютерная презентация ? Варианты ответов1.Мультимедийный документ, созданный на компьютере2.Текстовый документ с картинками3.Рисунок, схема, чертеж​...
olgaivanova04 olgaivanova04  09.03.2021 12:54
Задание 3. Есть 2 вида ветвления: с полным и неполным условиями. Установи соответствие (заполнив шапочку таблицы) if условие thеn оператор 1 if условие thеn оператор 1 еlѕе...
Manthflashlight Manthflashlight  09.03.2021 12:56
ЭТО СОР ПОСЛЕДНЕЕ ЗАДАНИЕ ЧЕРЕЗ 10 МИНУТ СДОВАТЬ​...
nmh788 nmh788  09.03.2021 12:56
3. Запиши данное выражение на языке программирование в третем...
edemka17042006 edemka17042006  09.03.2021 12:57
Дано целое трехзначное число a. (i)по заданному алгоритму составьте код программы(Python). Алг Сумма Нач Ввод(a) a=остаток(a;10) вывод(a) кон алг Код программы (ii) Входные...

Популярные вопросы