Помогите с задачей (Паскаль )
Приложения:
Ответы на вопрос
Ответил petyaGavrikov
0
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
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
Новые вопросы