Ответы на вопрос:
Var n,f,i: integer; begin write('n = '); readln(n); f: =1; for i: =1 to n do f: =f*i; writeln(n,'! = ',f); end. пример: n = 66! = 720
Популярно: Информатика
-
Написати програму для пошукк розв‘язку задачі методом перебору...
Kimbra820.01.2021 04:33 -
Погода в селе Иваново...
olgayabs76oxczon31.03.2021 04:01 -
Запись, C:=D+2 читается так: переменной C присвоить значение...
alexnatur21.06.2023 21:19 -
Какое порно можно посмотреть ( название )даю 15 б ...
lebedd5029.10.2021 19:00 -
Оформить игры в ворде в виде книжки + титульный лист Сборник...
anny6018.07.2021 19:27 -
Что делать если мод custom npc установлен, но не работает...
smasyanechka02.05.2023 22:03 -
Как в приложении знания .ком поменять язык?...
DiANa2407108.02.2021 19:33 -
В якому році Чехія увійшла до складу Австрії...
likunya17.07.2021 06:18 -
Краткое описание голосеменных: -сосна -ель...
мальчуган217.12.2021 00:37 -
іть будь ласка, буду вдячна...
Маринааамурр16.12.2020 00:57