Задание: Вычислить факториал числа N, введенного с клавиатуры.
Этапы решения задачи:
1. Математическая модель: .
2. Алгоритм работы программы приведен на рисунке З.1.
Рисунок З.1 – Блок-схема программы
3. Листинг программы.
Programexample3;
var i,N, Factorial: Longint;
begin
Write('ВведитеN');
Readln(N);
Factorial:=1;
For i:=1 to N do
begin
Factorial:=Factorial*i;
end;
WriteLn(‘Факториал числа N=’, Factorial);
readln;
end.
4. Результаты тестирования программы.
Приложение И
(информационное)