Question

Помогите составить программу на языке Паскаль : Составить программу,которая напечатает числа в виде следующей таблицы 5 55 555 5555 55555

Answer 1

Ответ:

var

 i, j, n: byte;

 x: array[1..30, 1..30]of integer;

begin

 writeln('Введите кол-во строк');

 readln(n);

 for i := 1 to n do

   for j := 1 to i do

   begin

     x[i, j] := 5;

   end;

 for i := 1 to n do

 begin

   writeln;

   for j := 1 to i do

     write(x[i, j],' ');

 end;

end.

Answer 2

Для решения этой задачи на языке Паскаль, можно использовать два вложенных цикла: один для управления количеством строк, другой - для управления количеством чисел в каждой строке. Ниже приведена программа на языке Паскаль, которая выводит таблицу с указанными числами:

pascalCopy code
program NumberTable;

var
  i, j: integer;
  num: string;

begin
  for i := 1 to 5 do
  begin
    num := '';
    for j := 1 to i do
      num := num + '5';
    writeln(num);
  end;
end.

Скопируйте данный код в среду разработки Pascal, например, в Free Pascal или Turbo Pascal, и запустите программу. Она выведет таблицу чисел в желаемом формате:

yamlCopy code
5
55
555
5555
55555