Склавиатуры вводятся числа пока их сумма меньше 300. найти произведение отрицательных чисел делящихся на 3
245
452
Ответы на вопрос:
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.
Популярно: Информатика
-
Alina153603.03.2022 16:25
-
lampec131.03.2022 05:05
-
Veta198614.05.2022 16:45
-
маликаманзура12.08.2020 20:22
-
ok68300011.09.2020 20:02
-
kilmetovalmas1401.07.2020 11:18
-
ValeraShara20.06.2020 02:06
-
romashchenko1711.03.2020 04:46
-
Гугко29.01.2022 23:44
-
AkameTop23.08.2021 00:11