Пожайлуста помогите срочно надо!!!

С клавиатуры вводится последовательности чисел считать сумму четных чисел до тех пор пока не введено число -25.

2

Ответы и объяснения

Лучший Ответ!
2014-04-07T13:54:26+04:00
2014-04-07T23:30:15+04:00
Program chik;
var a,s:integer;
begin
a:=-1;s:=0;
while a<>-25 do
begin
read(a);
if(abs(a)mod 2=0)then s:=s+a;
end;
writeln(s);
end.