Помогите с задачей (Паскаль )

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