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

через repeat ... until

Question

Онисифор

12 августа, 20:15

+1

Ответы (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