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

masyanyapar masyanyapar    2   01.03.2019 15:10    1

Ответы
ulylsh ulylsh  23.05.2020 18:20

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.

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