Написать программу на паскале: "ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит"

167

Посмотреть ответы 2

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

daryalife1998

Информатика

4,4(42 оценок)

program p;

var a,b: integer;

begin

a: =1;

repeat begin

writeln('введите число: ');

readln(b); if b< 0 then a: =a*b;

until b=0; writeln('ответ: ',a);

readln; end.

Slrudyko

Информатика

4,5(55 оценок)

x = -2

print(abs(x) + (x ** 5))

print(((x + 1) ** 2) + 3 * (x + 1))

150 000+ пользователей

Оформить подписку