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

Question

Информатика

Данила

12 августа, 22:19

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

+5

Ответы (2)

Знаете ответ?

Мина · Answer 1

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.

Зара · Answer 2

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.