Question

Тема: Цикл Введите с клавиатуры 15 произвольных чисел и найдите их произведение. (Паскаль, тема:Цикл)

Answer 1

####################

Answer 2

Вот пример программы на языке программирования Паскаль, которая позволяет ввести 15 произвольных чисел с клавиатуры и найти их произведение с использованием цикла:

pascalCopy code
program Произведение_15_чисел;
var
  i: integer;
  число, произведение: real;
begin
  произведение := 1; // Инициализируем произведение значением 1

  for i := 1 to 15 do
  begin
    write('Введите число ', i, ': ');
    readln(число);
    произведение := произведение * число; // Умножаем текущее число на произведение
  end;

  writeln('Произведение введенных чисел: ', произведение);
  readln;
end.

Эта программа создает переменную произведение, инициализирует ее значением 1, а затем использует цикл for для ввода 15 чисел с клавиатуры и умножения их на текущее значение произведения. По завершении ввода она выводит итоговое произведение.