воскресенье, 15 ноября 2015 г.

решение задач с 71

program z24_c71;
     var  k, i,sum: integer ;
     begin
     Sum:= 0; {изначально количество кресел в зале равно 0}
 k:=15; {столько кресел в 1 ряду }
     for i:= 1 to 25 do begin {цикл выполняется 25 раз, так как 25 рядов }
                      Sum:=Sum+k;  {25 раз к тому значению, что в величине Sum прибавляется значение к, а это количество кресел }
                      k:=k+2; {количество кресел с каждым рядом увеличивается на 2 }
                      end ;
     writeln('Sum=',sum);
     end.

Комментариев нет:

Отправить комментарий