воскресенье, 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.

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

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

Решение задач к практической работе 15-19 октября

Увеличить каждый элемент массива на 2  program aaa; var h: array[1..5] of integer;  i:integer; begin       for i:=1 to 5 do    ...