Ответы на вопрос:
Var i,n,f: integer; begin readln(n); i: =1; f: =1; while i< =n do begin f: =f*i; i: =i+1; end; writeln(f); end.
Популярно: Информатика
-
Нужно решить данную задачу...
CareyMahoney24.02.2020 03:36 -
В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее,...
Сверхразимус14.11.2021 13:29 -
с во Надежность ЭВМ с во Надежность ЭВМ. >...
Karolinka2212.01.2020 07:10 -
Представить число в формате с плавающей запятой (ПЗ) двойной точности -194(10)...
klochkovanastsy08.10.2021 22:39 -
у выражение. Задание в фото у выражение. Задание в фото >...
zizigi10.05.2022 11:42 -
нужно практичная робота 5 вариант 2 ст.122-123 проект с вкладеними циклами...
kazimirova200930.04.2020 16:53 -
2. Відповісти на питання: 1. Перерахуйте основні види графіки? 2. Як формується...
Польха13.05.2023 06:51 -
Напиши назначения данных команд. 1. 1) Ctrl + H 2. 2) Ctrl +J 3. 3) Ctrl...
mitrofanovas63311.11.2021 06:04 -
Почему синтаксис языка программирования важен при написании программы?...
mma050901.01.2021 15:22 -
99 ! выполните уравнения реакций. подпишите типы реакций. 1) mno3 2) натрий...
Kristina2003star106.07.2021 21:08