С клавиатуры вводятся числа пока их сумма меньше 300. Найти произведение…

Question

72

С клавиатуры вводятся числа пока их сумма меньше 300. Найти произведение отрицательных чисел делящихся на 3

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

avas1979 · Accepted Answer

45

avas1979

24 февраля 2023

var x,s,p: integer; beginp: =1; while s<300 do beginreadln (x); if x mod 3=0 then p: =p*x; s: =s+x; end; if p<>1 then writeln (p) else writeln ('0'); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: