Составить программу нахожденмя суммы четных чискл на промкжутке от 26 до 88 (с...

Question

Составить программу нахожденмя суммы четных чискл на промкжутке от 26 до 88 (с предусловием)

Answer 1

Var a,s:integer;
begin
a:=26;
while a<=88 do<br>begin
if a mod 2 = 0 then s:=s+a;
a:=a+1
end;
writeln (s)
end.