Question

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

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)