Как определить произведение счетчиков цикла? - Turbo Pascal

Формулировка задачи:

Сумма счетчиков цикла определяется. А можно ли определить произведение счетчиков цикла? Например, 1*2*3*4*5=120 Код примера:

                    Листинг программы
                
 
                        
                          
                    
Program Sum;
Uses Crt;
Var N,S : integer;
Begin
ClrScr;
S:=0;
For N:=1 to 1- do
S:=S+N;
Writeln(‘Сумма равна:=’ ,S);
Readln
End.

Сумма равна :=55

Решение задачи: «Как определить произведение счетчиков цикла?»

Листинг программы

program Proiz;
 
Uses 
Crt;
var
  N, i: integer;
  p: real;
 
begin
  ClrScr;
  p := 1;
  n := 5;
  for i := 1 to n do
    p := p * i;
  Writeln('Произведение равно: ', p:0:0);
  Readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Задача программы - определить произведение счетчиков цикла.

В начале программы подключается библиотека Crt, которая предоставляет функции для работы с памятью и вводом-выводом.
Затем определяются переменные N, i и p типа integer и real соответственно. Переменная N имеет значение 5, а i и p инициализируются нулевыми значениями.
Далее идет цикл for, который выполняется от 1 до n (5). В каждой итерации цикла значение переменной p умножается на значение переменной i.
После завершения цикла выводится сообщение с произведением счетчиков цикла.
Программа завершается вызовом функций Readln и ClrScr, которые считывают ввод пользователя и очищают экран соответственно.