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

Question

Ульяныч

11 сентября, 05:28

+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.