bolela
Опубликовано 6 лет назад по предмету Информатика от bolela


Вычислите сумму N натуральных четных чисел, начиная с 2.

  1. Ответ
    Ответ дан ali07

    program xxx;

      var i, n, s : integer;

    begin

       write('введите число N=');

       readln(n);

       s:=0;

       i:=2;

       while i<=n do

         begin

           s:=s+i;

           i:=i+2

         end;

       write('сумма четных чисел =', s);

       readln

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц