Question

Напечатайте таблицу умножения чисел от 25 до 50 на числа 2, 3, 4 и 5. Все данные расположите в несколько столбцов так, чтобы они были видны на экране. pascal abc

Answer 1

Ответ:

program z1;

var i,j:integer;

a : array [2..5,25..50] of integer;

begin

write(' ');

for j:= 25 to 50 do write (j:4);

writeln;

for i:= 2 to 5 do

begin

write(i);

for j:= 25 to 50 do

begin

a[i,j]:=i*j;

write(a[i,j]:4)

end;

writeln

end

end.

Объяснение:

Вывод как в таблице умножения - на перекрестке строки и столбца значение произведения

Answer 2

К сожалению, я не могу создать графические таблицы в текстовом формате, но я могу предоставить вам код на языке Pascal ABC, который вы можете использовать, чтобы вывести таблицу умножения чисел от 25 до 50 на числа 2, 3, 4 и 5. Вот такой код:

pascalCopy code
program MultiplicationTable;
var
  i, j, result: integer;
begin
  writeln('Таблица умножения:');
  writeln('-------------------');
  writeln('| Число |  2  |  3  |  4  |  5  |');
  writeln('-------------------');
  for i := 25 to 50 do
  begin
    write('|   ', i, '   |');
    for j := 2 to 5 do
    begin
      result := i * j;
      write('   ', result, '   |');
    end;
    writeln;
  end;
  writeln('-------------------');
end.

Скопируйте этот код в среду разработки Pascal ABC, выполните его и вы получите таблицу умножения, отформатированную с помощью текстовых столбцов.