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

Вопрос школьника по предмету Информатика

В кинозале имеется n рядов по m мест в каждом (m и n-константы). Цена билета в первом ряду-1 рубль, в каждом следующем ряду в два раза дороже, чем в предыдущем. Известно, что крайние места каждого ряда на 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