Здравствуйте,нужно решить задачу )!


Здравствуйте,нужно решить задачу )!​

Lesawolk12 Lesawolk12    2   13.05.2021 01:07    2

Ответы
Пенёк155 Пенёк155  12.06.2021 01:47

var

i, n, sum: integer;

begin

 writeln('Input N:');

 readln(n);

 sum:=0;

 for i:= 2 to n do

    if i mod 2 = 0 then

      sum := sum + i;

 writeln(sum)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика