Можно блок схему к данной задаче. 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.

Brozuca    3   25.11.2020 12:41    6