Написать программу, которая вычисляет факториал числа, введенного с клавиатуры (используя цикл с параметром).

+ 0 -

Lesyanazarova

14 марта 2015 г., 9:44:34 (9 лет назад)

program E9;
  var p, i, n: integer;
begin
  write ('введите целое n = ');
  readln (n);
  p: = 1;
  for i: = 1 to n do
    p: = p * i;
  write (n, '! = ',p); 

+ 0 -

Keutis

14 марта 2015 г., 11:38:28 (9 лет назад)

var
  y: System.uint64; //Большая цЫфра же и положительная
  x, i: byte; //Нет смысла большие числа брать слишком, переполнение будет

begin
  readln(x); //Принимаем число...
  y := 1;
  for i := 1 to x do
    y *= i; //...и умножаем такое-то количество раз
  if (y = 0) then //Выводим, предусмотрев переполнение
    writeln('Слишком большая цЫферка')
  else
    writeln(y);
end.
==========================================