Составить программу на языке паскаль для вычисления суммы всех четных чисел на интервале от 1 до н. (9 )

Объяснение:

var

i,n,s:integer;

begin

write('Введите n=');

readln(n);

s:=0;

while i<=n do

begin

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

i:=i+1;

end;

writeln('s=',s);

readln;

end.

И чуть короче с циклом for

var

i,n,s:integer;

begin

write('Введите n=');

readln(n);

s:=0;

for i:=1 to n do

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

writeln('s=',s);

readln;

end.