0 голосов
9 просмотров

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

от Начинающий (931 баллов) 1 2 4 в категории Информатика

1 Ответ

0 голосов
 
Лучший ответ

program xxx;

  var i, n, s : integer;

begin

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

   readln(n);

   s:=0;

   i:=2;

   while i<=n do</p>

     begin

       s:=s+i;

       i:=i+2

     end;

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

   readln

end.

от Доцент (52.1 тыс. баллов) 2 3 4
...