Дана непустая последовательность положительных целых чисел a1, a2,... оканчивающаяся нулем. Получить a1, a1a2, a1a2*a3... 0 Решить, используя оператор until repeat либо while(паскаль)

Question

Дана непустая последовательность положительных целых чисел a1, a2,... оканчивающаяся нулем. Получить a1, a1a2, a1a2*a3... 0 Решить, используя оператор until repeat либо while(паскаль)

Дана непустая последовательность положительных целых чисел a1, a2,... оканчивающаяся нулем. Получить a1, a1*a2, a1*a2*a3... 0 Решить, используя оператор until repeat либо while (паскаль)

Гость

Ответ(ы) на вопрос:

Accepted Answer

program p1; var a, b: integer; begin repeat r ead(a); b := b * a; write(b, ' ') until b = 0; end.

Дана непустая последовательность положительных целых чисел a1, a2,... оканчивающаяся нулем. Получить a1, a1*a2, a1*a2*a3... 0 Решить, используя оператор until repeat либо while(паскаль)

Дана непустая последовательность положительных целых чисел a1, a2,... оканчивающаяся нулем. Получить a1, a1a2, a1a2*a3... 0 Решить, используя оператор until repeat либо while(паскаль)