Question

Вывести на экран таблицу умножения от 4 до 9, в Паскале

Answer 1

Program gg;
var  i,k: integer;
beginfor k:=4 to 9 do begin  for i := 1 to 10 do   begin   writeln(k,' x ',i,' = ',k*i);       end;  writeln('----------');  end;end.

Answer 2

Вывод таблицы умножения от 4 до 9 в Паскале

Для вывода таблицы умножения от 4 до 9 на экран в Паскале, можно использовать циклы и оператор вывода. Вот пример кода:

program multiplication_table;

var
  i, j: integer;

begin
  for i := 4 to 9 do
  begin
    for j := 1 to 10 do
    begin
      writeln(i, ' * ', j, ' = ', i * j);
    end;
    writeln;
  end;
end.

В этом примере используется два вложенных цикла. Внешний цикл `for i := 4 to 9` перебирает числа от 4 до 9, а внутренний цикл `for j := 1 to 10` перебирает числа от 1 до 10 для каждого значения `i`. Внутри вложенных циклов происходит вывод умножения чисел `i` и `j` на экран с помощью оператора `writeln`.

Примечание: В приведенном коде используется оператор `writeln`, который выводит результаты на новой строке. Если вы хотите вывести результаты в одной строке, вы можете использовать оператор `write` вместо `writeln`.

Ниже приведен пример вывода таблицы умножения от 4 до 9 с использованием приведенного кода:

4 * 1 = 4
4 * 2 = 8
4 * 3 = 12
4 * 4 = 16
4 * 5 = 20
4 * 6 = 24
4 * 7 = 28
4 * 8 = 32
4 * 9 = 36
4 * 10 = 40

5 * 1 = 5
5 * 2 = 10
5 * 3 = 15
5 * 4 = 20
5 * 5 = 25
5 * 6 = 30
5 * 7 = 35
5 * 8 = 40
5 * 9 = 45
5 * 10 = 50

6 * 1 = 6
6 * 2 = 12
6 * 3 = 18
6 * 4 = 24
6 * 5 = 30
6 * 6 = 36
6 * 7 = 42
6 * 8 = 48
6 * 9 = 54
6 * 10 = 60

7 * 1 = 7
7 * 2 = 14
7 * 3 = 21
7 * 4 = 28
7 * 5 = 35
7 * 6 = 42
7 * 7 = 49
7 * 8 = 56
7 * 9 = 63
7 * 10 = 70

8 * 1 = 8
8 * 2 = 16
8 * 3 = 24
8 * 4 = 32
8 * 5 = 40
8 * 6 = 48
8 * 7 = 56
8 * 8 = 64
8 * 9 = 72
8 * 10 = 80

9 * 1 = 9
9 * 2 = 18
9 * 3 = 27
9 * 4 = 36
9 * 5 = 45
9 * 6 = 54
9 * 7 = 63
9 * 8 = 72
9 * 9 = 81
9 * 10 = 90

Этот код выведет таблицу умножения от 4 до 9 на экран, где каждая строка представляет собой умножение числа `i` на числа от 1 до 10.