Question

составьте программу вычисления суммы S=2+4+6..+20 , в Паскале

Answer 1

var

a, b, s: integer;

begin

a:= 2;

b:=20;

s:=0;

while a<=b do begin

s:=s+a;

a:=a+2;

end;

write(s);

end.