var
N, i, sum: integer;
begin
writeln('Введите N:');
readln(N);
sum := 0;
for i := 1 to N do
if (i mod 2) = 0 then
sum += i;
write('Сумма четных чисел = ',sum);
end.
Объяснение:
реализовано на pascal.
var
N, i, sum: integer;
begin
writeln('Введите N:');
readln(N);
sum := 0;
for i := 1 to N do
if (i mod 2) = 0 then
sum += i;
write('Сумма четных чисел = ',sum);
end.
Объяснение:
реализовано на pascal.