Question

Pascal ABC. Составьте программу, выводящую на экран фрагмент таблицы умножения: 1 x 1 = 12 х 2 = 43 x 3 = 9... 9 х 9 = 81​

Answer 1

Ответ:

Program tablitsa;

Begin;

WriteLn ('Таблица умножения');

WriteLn ('1*1=1');

WriteLn ('2*2=4');

WriteLn ('3*3=9');

WriteLn ('4*4=16');

WriteLn ('5*5=25');

WriteLn ('6*6=36');

WriteLn ('7*7=49');

WriteLn ('8*8=64');

WriteLn ('9*9=81');

end.

Answer 2

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

program MultiplicationTableFragment;
var
  x, y, result: integer;
begin
  for x := 1 to 9 do
  begin
    for y := 1 to 9 do
    begin
      result := x * y;
      writeln(x, ' x ', y, ' = ', result);
    end;
  end;
end.

Этот код создает два вложенных цикла, один для переменной `x` и один для переменной `y`. Затем внутри циклов происходит умножение `x` на `y`, и результат сохраняется в переменной `result`. Затем результат выводится на экран с помощью процедуры `writeln`. Программа будет выполняться для значений `x` от 1 до 9 и `y` от 1 до 9, что создаст фрагмент таблицы умножения от 1x1 до 9x9.