Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 18.

Вычисление р = n! (n факториал).

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);
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100