Информатика, опубликовано 2018-08-22 22:01:49 by Гость
Дана непустая последовательность положительных целых чисел a1, a2,... оканчивающаяся нулем. Получить a1, a1*a2, a1*a2*a3... 0 Решить, используя оператор until repeat либо while(паскаль)
Ответ оставил Гость
Var a,p:integer;
begin
p:=1;
repeat
write(Введите член последовательности: );
readln(a);
p:=p*a;
writeln(Произведение: ,p);
until a=0;
end.
Тестовое решение:
Введите член последовательности: 2
Произведение: 2
Введите член последовательности: 4
Произведение: 8
Введите член последовательности: 8
Произведение: 64
Введите член последовательности: 20
Произведение: 1280
Введите член последовательности: 0
Произведение: 0
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на