1. 

   MAX-x-x-x New Member

   Подсчитатьсумму всех четных натуральных чисел до 40 в программе Паскаль.

    

   MAX-x-x-x, 10 янв 2010

   #1
2. 

   Rubiroid New Member

   program xxx;
     var i, s : integer;
   begin
    s:=0;
    i:=2;
    while i<=40 do
      begin
         s:=s+i;
         i:=i+2
      end;
    write('сумма четных чисел =', s);
    readln
   end.

    

   Rubiroid, 10 янв 2010

   #2

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

Пароль:

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

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