Дана непустая последовательность положительных целых чисел a1, a2, ... оканчивающаяся нулем. Получить a1, a1a2, a1a2*a3 ... 0

Решить, используя оператор until repeat либо while

(паскаль)

Question

Рина

29 июня, 20:50

+2

Ответы (1)

Знаете ответ на вопрос?

Нинуша · Answer 1

Program p1;

var a, b: integer;

begin

repeat r

ead (a) ;

b : = b * a;

write (b, ' ') until b = 0;

end.