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.
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.
Комментариев нет:
Отправить комментарий