Question

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

Answer 1

Ответ:

Объяснение:

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.