Дана непустая последовательность положительных целых чисел a1, a2,... оканчивающаяся нулем. Получить a1, a1*a2, a1*a2*a3... 0 Решить, используя оператор until repeat либо while (паскаль)
Можно использовать массив?
Нет, мы не изучали еще :(
Program p1; var a, b: integer; begin repeat r ead(a); b := b * a; write(b, ' ') until b = 0; end.
b := b * a; На этом шаге выдает ошибку, говорит, что переменной не присвоено значение. Наверное до repeat нужно b начальное значение задать?
Да! спасибо что заметили! перед репитом введите а и присвойте b значение а
Спасибо большое! :З