Question

На языке Паскаль Составьте программу вывода на экран номера этажа и номеров квартир ,находящихся на данном этаже,девятиэтажного дома ,на каждом этаже которого находится по 5 квартир

Answer 1

Var i,j,n: integer;
begin
for i := 1 to 9 do
  begin
  write(i,': ');
  for j:=1 to 5 do
    begin
    n:=n+1;
    write(n,' ');
    end;
  writeln;
  end
end.  

Answer 2

Конечно, вот пример программы на языке Pascal, которая выводит номера этажа и номера квартир на каждом этаже девятиэтажного дома, где на каждом этаже по 5 квартир:

program ВыводНомеровКвартир;

const
  КоличествоЭтажей = 9; // Общее количество этажей
  КвартирНаЭтаже = 5;   // Количество квартир на каждом этаже

var
  Этаж, НомерКвартиры: Integer;

begin
  // Внешний цикл для прохода по каждому этажу
  for Этаж := 1 to КоличествоЭтажей do
  begin
    // Внутренний цикл для прохода по каждой квартире на текущем этаже
    for НомерКвартиры := 1 to КвартирНаЭтаже do
    begin
      // Вывод номера этажа и номера квартиры на экран
      writeln('Этаж ', Этаж, ', Квартира ', НомерКвартиры);
    end;
  end;

// Ожидание нажатия клавиши перед завершением программы
  readln;
end.

Эта программа использует два вложенных цикла: внешний цикл проходит по каждому этажу, а внутренний цикл проходит по каждой квартире на текущем этаже. Внутри вложенных циклов программа выводит на экран номер этажа и номер квартиры.