напишите на паскаль программу расчет произведения введённых с клавиатуры N произвольных чисел с применением цикла с условием окончания работы
Заранее спасибо
Ответы
Программа:
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
Произведение чисел: 3.6288E+16