Составить программу вычисления сумму четных чисел от 2 до n

Question

Составить программу вычисления сумму четных чисел от 2 до n

Экономика

Гость

Ответ(ы) на вопрос:

Гость

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.

Accepted Answer

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.