1. 

   Lucky_girl New Member

   найти сумму положительных нечетных чисел,меньших n. по паскалю

    

   Lucky_girl, 7 фев 2010

   #1
2. 

   KOLIAN22 New Member

   uses crt; 
   var i,s:integer; 
   begin 
   s:=0; 
   for i:=1 to 100 do 
   begin 
   if ((i mod 2)=1) then s:=s+i; 
   end; 
   writeln('summa nechetnych chisel menshe sta ravna ',s); 
   readkey;end.

    

   KOLIAN22, 7 фев 2010

   #2

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

Пароль:

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

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