Найти 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.

Объяснение кода листинга программы

  1. Объявляются переменные N, a, i, F типа integer.
  2. Задаётся начальное значение N равное 1.
  3. Вводится цикл, который будет повторяться до тех пор, пока пользователь не введет корректное значение N больше 0.
  4. После цикла с условием, переменной N присваивается значение 1.
  5. В цикле while N больше i, происходит следующее: а) i увеличивается на 1. б) Генерируется случайное число от 1 до 100 с шагом 1 и присваивается переменной a. в) Выводится на экран i-ое число: a. г) F умножается на i.
  6. После цикла выводится на экран значение N! и значение F.

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы