Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от - 10 до + 10

Через While решать!

Question

Информатика

Звезда

28 февраля, 11:16

Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от - 10 до + 10

Через While решать!

+3

Ответы (1)

Знаете ответ?

Сабина · Answer 1

var

pr, x:integer;

begin

pr : = 1;

write ('Введите число ') ; readln (x) ;

while (x = - 10) do

begin

Pr : = pr * x;

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

readln (x) ;

end;

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

end.

Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от - 10 до + 10Через While решать!

Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от - 10 до + 10

Через While решать!