Question

В программе Pascal ABC составьте программу, которая вычисляет произведение n чисел вводимых с клавиатуры.

Answer 1

Var
    sum, k, n, i: integer;
begin
    sum := 0;
    write('n: ');
    readln(n);
    for i := 1 to n do
    begin
        readln(k);
        sum := sum + k;
    end;
    writeln('sum = ', sum);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal ABC, которая вычисляет произведение n чисел, вводимых с клавиатуры:

pascalCopy code
program Вычисление_произведения;

var
  n, i: integer;
  число, произведение: real;

begin
  произведение := 1; // Инициализируем произведение единицей
  
  write('Введите количество чисел: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Введите число ', i, ': ');
    readln(число);
    произведение := произведение * число;
  end;
  
  writeln('Произведение введенных чисел: ', произведение:0:2);
  
  readln;
end.

Пользователю будет предложено ввести количество чисел, а затем они будут запрошены по одному. Программа будет последовательно умножать введенные числа друг на друга и выводить итоговое произведение.