Программа на языке Паскаль, суммирующая и находящая произведение 5 чисел, может быть написана с использованием трех видов циклов: цикла "пока", цикла "до" и цикла "n-раз". Например, для решения этой задачи можно использовать цикл "пока", который будет продолжаться до тех пор, пока не будет введено 5 чисел.

program SumAndProduct;

var

  num, sum, product, count: integer;

begin

  sum := 0;

  product := 1;

  count := 0;

  

  while count < 5 do

  begin

    writeln('Введите число:');

    readln(num);

    sum := sum + num;

    product := product * num;

    count := count + 1;

  end;

  

  writeln('Сумма чисел:', sum);

  writeln('Произведение чисел:', product);

end.

В данном примере объявляются переменные num (для вводимого числа), sum (для суммы чисел), product (для произведения чисел) и count (для подсчета чисел). Затем инициализируются sum, product и count значениями 0. Далее, используя цикл "пока", программа запрашивает у пользователя 5 чисел, добавляет их к сумме и произведению, и увеличивает значение count на 1 после каждой итерации. После завершения цикла выводятся сумма и произведение введенных чисел.

 

program SumAndProduct;

var

  num, sum, product, count: integer;

begin

  sum := 0;

  product := 1;

  

  for count := 1 to 5 do

  begin

    writeln('Введите число:');

    readln(num);

    sum := sum + num;

    product := product * num;

  end;

  

  writeln('Сумма чисел:', sum);

  writeln('Произведение чисел:', product);

end.

В этом примере используется цикл "до", который будет выполняться 5 раз, начиная с 1 и заканчивая 5. В каждой итерации цикла программа запрашивает у пользователя число, добавляет его к сумме и произведению, и переходит к следующей итерации. После выполнения цикла выводятся сумма и произведение введенных чисел.

program SumAndProduct;

var

  num, sum, product, i: integer;

begin

  sum := 0;

  product := 1;

  

  for i := 1 to 5 do

  begin

    writeln('Введите число:');

    readln(num);

    sum := sum + num;

    product := product * num;

  end;

  

  writeln('Сумма чисел:', sum);

  writeln('Произведение чисел:', product);

end.

В этом примере используется цикл "n-раз". Переменная i инициализируется значением 1, и цикл будет продолжаться, пока i <= 5. В каждой итерации цикла программа запрашивает у пользователя число, добавляет его к сумме и произведению, и увеличивает значение i на 1. В результате выполнения цикла выводятся сумма и произведение введенных чисел. Таким образом, представлены три варианта программы на языке Паскаль, которая считает сумму и произведение 5 чисел, вводимых с клавиатуры, используя циклы "пока", "до" и "n-раз".