напишите на паскаль программу расчет произведения введённых с клавиатуры N произвольных чисел с применением цикла с условием окончания работы

Заранее спасибо

Ответы

Ответ дал: vimmortal2

Программа:

Pascal:

var

N: integer;

proiz, num: real;

begin

proiz := 1; num := 1;

write('N = '); readln(N);

while N <> 0 do begin

write('Введите ', N, ' число: '); readln(num);

proiz *= num;

N -= 1;

end;

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

end.

Объяснение:

В начале регистрируются три переменные, которые будут использоваться в основном коде. Переменной proiz присваивается единица, чтобы в будущем не умножать на ноль. Далее вводится N с клавиатуры, как сказано по условию. Применяется цикл, который также необходим по условию (подойдёт while). И выполняется следующее тело: запрашивается N число с клавиатуры, значение переменной proiz умножается на введённое число, значение N уменьшается на единицу. В конце - вывод произведения этих N чисел.

Результат:

N = 10

Введите 10 число: 10

Введите 9 число: 20

Введите 8 число: 30

Введите 7 число: 40

Введите 6 число: 50

Введите 5 число: 60

Введите 4 число: 70

Введите 3 число: 80

Введите 2 число: 90

Введите 1 число: 100