В кинозале имеется n рядов по m мест в каждом (m и n-константы). Цена билета в первом...

Question

В кинозале имеется n рядов по m мест в каждом (m и n-константы). Цена билета в первом ряду-1 рубль, в каждом следующем ряду в два раза дороже, чем в предыдущем. Известно, что крайние места каждого ряда на 1 рублю дешевле остальных мест этого ряда. Выведите таблицу с ценами билетов за каждое место (Паскаль) можно пожалуйста простое решение

Comments

ой, извините, я не заметил, максимальное число рядов 4, а мест в ряду 6

---

можете пожалуйста решить?

Answer 1

Var
  i,j,m,n,c:integer;
begin
  Write('Введите число рядов и число мест: ');
  Read(n,m);
  c:=1;
  Writeln('--- ЭКРАН ---');
  for i:=1 to n do begin
    Write(c-1:3);
    for j:=2 to m-1 do Write(c:3);
    Writeln(c-1:3);
    c:=c*2
    end
end.

Пример

Введите число рядов и число мест: 4 6
--- ЭКРАН ---
  0  1  1  1  1  0
  1  2  2  2  2  1
  3  4  4  4  4  3
  7  8  8  8  8  7