Ответы и объяснения

2013-05-10T13:48:07+00:00

Program Summa

Uses Crt;

var i,n,s:longint;

begin

    clrscr;

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

    readln(n);

     s:=0; 

 

    for i:=2 to n do

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

   writeln('Сумма всех чётных от 2 до n: ',s);

   readkey 

 

end. 

 

 

 

 

2013-05-10T14:02:43+00:00

program s;

uses crt;

var n,i,sum:integer;

begin

clrscr;

write('n=');

readln(n);

s:=0;

for i:=2 to n do 

begin

if not odd(i) then 

s:=s+i;

end;

writeln(s);

readln;

end.