Найти N! - Pascal ABC (247525)
Формулировка задачи:
Вывести N различных чисел.Найти N!. Репид, Фор Вайл
Решение задачи: «Найти N!»
textual
Листинг программы
var N, a, i, F : integer; begin Randomize; repeat Write('Введите кол-во чисел: '); Readln(N); if N<1 then Writeln('Ошибка ввода данных!'); until N>0; F:=1; while N>i do begin i:=i+1; a:=Random(100)+1; Writeln(i, ') число: ', a); F:=F*i; end; Writeln('N! = ', F); end.
Объяснение кода листинга программы
- Объявляются переменные N, a, i, F типа integer.
- Задаётся начальное значение N равное 1.
- Вводится цикл, который будет повторяться до тех пор, пока пользователь не введет корректное значение N больше 0.
- После цикла с условием, переменной N присваивается значение 1.
- В цикле while N больше i, происходит следующее: а) i увеличивается на 1. б) Генерируется случайное число от 1 до 100 с шагом 1 и присваивается переменной a. в) Выводится на экран i-ое число: a. г) F умножается на i.
- После цикла выводится на экран значение N! и значение F.