Ответ(ы) на вопрос:
Гость
var a,s:integer;
begin
readln(a);
s:=0;
while a<>0 do
begin
if (a>99)and(a<1000)and(a mod 4=0)
then s:=s+a;
readln(a);
end;
writeln('s = ',s);
end.
Пример:
28
192
104
117
0
s = 296
Не нашли ответ?
Похожие вопросы