Question

СРОЧНО!! паскаль с клавиатуры вводится 2 числа первое-количество столбцов, второе-количество строк. построить "таблицу" (если например ввели 2;3) таблица такая \1\1\ \1\1\ \1\1\

Answer 1

Var
M,N,i:integer;
Begin
ReadLn(N,M);
For M:= 1 to M do
    Begin
    For i:= 1 to N do
        Write('\1');
    WriteLn('\')
    End
End.

Пример:
13 7
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\
\1\1\1\1\1\1\1\1\1\1\1\1\1\

Answer 2

Вот пример кода на языке Pascal, который позволит вам построить таблицу с заданным количеством столбцов и строк:

pascalCopy code
program TableBuilder;

var
  numRows, numColumns, i, j: integer;

begin
  WriteLn('Введите количество столбцов:');
  ReadLn(numColumns);

  WriteLn('Введите количество строк:');
  ReadLn(numRows);

  for i := 1 to numRows do
  begin
    for j := 1 to numColumns do
    begin
      Write('\1\1\ ');
    end;
    WriteLn;
  end;

  ReadLn;
end.

Программа запрашивает количество столбцов и строк у пользователя. Затем она использует вложенные циклы for для построения таблицы, печатая символы '\1\1\ ' в каждую ячейку. После завершения вывода таблицы программа ожидает ввода пользователя перед завершением.

Примечание: В Pascal символ \ является специальным символом, и для его отображения в тексте необходимо использовать удвоение (\\).