[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Компьютеры » Программирование » Pascal » Посчитать факториал (Turbo Pascal 7)
Посчитать факториал
АлексейДата: Суббота, 05.12.2015, 00:15 | Сообщение # 1
Продвигающийся
Группа: Администраторы
Сообщений: 318
Награды: 4
Репутация: 1
Статус: Оффлайн
Задание: Посчитать факториал по формуле.


Код программы:
Код
Programm fakt
var n, i, sum: integer; { инициализируем переменные }
begin { приступаем к выполнению }
Readln(n); { вводим значение длинны массива }
sum:=0; { обнуляем переменную для произведения }
For i:=1 to n Do Begin { запускаем массив, в котором будем считать произведение по форуме }
sum := sum * ( (i*i + i) div (i) ); { по этой формуле считаем сумма }
End; { конец массива }
Writeln('Произведение по факториалу равно - ', sum); { выводим на экран информацию }
End. { конец работы программы }
 
Форум » Компьютеры » Программирование » Pascal » Посчитать факториал (Turbo Pascal 7)
  • Страница 1 из 1
  • 1
Поиск: