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

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

Question

Информатика

Борюня

6 января, 16:57

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

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

+4

Ответы (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 решать!