Ответы на вопрос:
Var i,p,n: integer; begin p: =1; readln(n); for i: =1 to n do p*=i; writeln(p); end.
Популярно: Информатика
-
Суреттерді SketchUp Make программасында кандай куралдарды пайдаланып...
Filka703.05.2021 09:04 -
11,25 Блок ячеек А1:44 заполнен числами: 15, 10, 32, -12. Укажите...
Ihalina21.01.2022 17:42 -
с задачей на python: Пишется список N, заполненный целочисленными...
pashafil506.02.2022 02:41 -
За спам или неправильное решение буду жалобу кидать!...
supgrigori01.06.2021 11:41 -
написать код программы и блок схему в Паскаль, определяющую цвет...
6ВинишкоТян929.01.2023 09:33 -
Программалоо тилинин алфавитинин кубаттуулугу кандай?...
Andrei211111122.05.2020 21:10 -
с тестом по информатике Смартфон це кишеньковий комп’ютер який...
romanovanelya05.06.2023 01:16 -
6. Непорожній рядок, який однаково читається як зліва напра-...
zanna1009197612.07.2021 23:04 -
Надо перевести с турбопаскаль на ПаскальАBC или на Пайтон. Помгите...
SA67WQTBLOCK25.01.2020 07:04 -
Какое слово не используют в команде цикла с параметром? a) for;...
Максим21528102.02.2022 12:32