Question

Сделайте таблицу умнажений в Free Pascal

Answer 1

Без массивов и с циклами:

program N53746544;
var a,b:integer;
begin
writeln('Таблица умножения');
for a := 1 to 9 do begin
for b := 1 to 9 do
if a*b=1 then write('____') {печатает 4 пробела}
else write(a*b:4);
writeln;
end;
readln;
end.

Answer 2

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

program ТаблицаУмножения;

var
  i, j: Integer;

begin
  // Вывод заголовка таблицы
  writeln('Таблица умножения:');
  writeln('------------------');

// Вывод заголовков столбцов
  write('   |');
  for i := 1 to 9 do
    write(' ', i:2, ' ');
  writeln;

// Вывод разделительной строки
  writeln('------------------');

// Вывод таблицы умножения
  for i := 1 to 9 do
  begin
    // Вывод номера строки
    write(i:2, ' |');
    
    // Вывод значений в строке
    for j := 1 to 9 do
      write(' ', i * j:2, ' ');
    
    writeln; // Переход на новую строку после каждой строки таблицы
  end;

// Завершение программы
  readln;
end.

Эта программа использует вложенные циклы для создания таблицы умножения от 1 до 9. Вы можете изменить значения в циклах, чтобы получить таблицу другого размера.

Сохраните этот код в файл с расширением `.pas` и скомпилируйте его, используя ваш компилятор Free Pascal.

Обратите внимание, что вы должны иметь установленный Free Pascal для выполнения этой программы. Если у вас его нет, вы можете скачать его с официального сайта: https://www.freepascal.org/download.var