Информатика, опубликовано 2018-08-22 23:57:48 by Гость
Дана непустая последовательность положительных целых чисел 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.