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

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

(паскаль)

Question

Артюша

18 июня, 08:23

+5

Ответы (1)

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

Емилиан · Answer 1

Program p1;

var a, b: integer;

begin

repeat r

ead (a) ;

b : = b * a;

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

end.