В кинотеатре К рядов кресел. В первом ряду Х кресел, в каждом последующем на У кресел больше, чем в предыдущем. Стоимость одного места в первом ряду - L тенге, а в каждом последующем - на M тенге больше, чем в предыдущем. Подсчитать выручку кинотеатра за один сеанс при целиком заполненном зале. Цикл с параметром

Question

Информатика

Виталя

16 августа, 04:59

В кинотеатре К рядов кресел. В первом ряду Х кресел, в каждом последующем на У кресел больше, чем в предыдущем. Стоимость одного места в первом ряду - L тенге, а в каждом последующем - на M тенге больше, чем в предыдущем. Подсчитать выручку кинотеатра за один сеанс при целиком заполненном зале. Цикл с параметром

+5

Ответы (1)

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

Манюша · Answer 1

Var i, k, x, y, l, m, s:integer;

begin

readln (k) ;

readln (x) ;

readln (y) ;

readln (l) ;

readln (m) ;

for i:=1 to k do

begin

s:=x*l;

x:=x+y;

l:=l+m;

end;

writeln (s) ;

end.

Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln (a, b, c, d)