Составить программу. В кинотеатре 25 рядов кресел в 1 ряду 15 кресел в каждом последующем на 2 кресла больше. сколько всего мест в зрительском зале

Question

Ульяныч

19 марта, 03:26

+3

Ответы (1)

Знаете ответ на вопрос?

Велимира · Answer 1

Var i, k, s:integer;

begin

k:=15-2;

for i:=1 to 25 do

begin

k:=k+2;

s:=s+k;

end;

writeln ('Количество кресел = ', s) ;

end.