1. 

   Innik New Member

   нужно написать программу с помощью двух циклов найти квадрат суммы всех натуральных чисел от 5 до10

    

   Innik, 16 фев 2010

   #1
2. 

   SiekeRRa New Member

   Program PR1;
   uses crt;
   var i,b:integer;
   begin
   clrscr;
   b:=0;
   for i:=5 to 10 do b:=b+i;
   writeln(sqr(b));
   end.
    
    
    
   
   Program Pr1;
   uses crt;
   var i,b:integer;
   begin
   clrscr;
   i:=5;
   b:=0;
   repeat
   b:=b+i;
   i:=i+1;
   until i>10;
   writeln(sqr(b));
   end.

    

   SiekeRRa, 16 фев 2010

   #2

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

Пароль:

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

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