1. 

   sva2009.84 New Member

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

    

   sva2009.84, 17 фев 2010

   #1
2. 

   KrOpAL New Member

   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.

    

   KrOpAL, 17 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня