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

через repeat ... until

Question

Эдюня

20 декабря, 10:56

+4

Ответы (1)

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

Люда · Answer 1

Var a, p : integer;

begin

p : = 1;

read (a) ;

repeat

P: = p*a;

read (a)

until (a 10) ;

Write (p) ;

end.

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