Question

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

Answer 1

Ответ:

var a,s:integer;

begin

a:=26;

while a<=88 do

begin

if a mod 2 = 0 then s:=s+a;

a:=a+1

end;

writeln (s)

end