1. 

   Logical New Member

   найти сумму нечётных чисел, из промежутка от 11 до 99, найти среднее арифметическое чисел от 1 до50

    

   Logical, 5 мар 2010

   #1
2. 

   a1qa New Member

   uses crt;
   var s,i:integer;
   begin
   for i:=11 to 99 do
   if a mod 2 <> 0 then s:=s+i;
   writeln(s);
   readln;
   end.
    
   2.
    
   uses crt; 
   var s,i:integer;
   begin
   for i:=1 to 50 do s:=s+i;
   writeln(s/50);
   readln;
   end;

    

   a1qa, 5 мар 2010

   #2

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

Пароль:

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

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