Question

Составьте программу которая Выводит на экран 10 строк таблицы умножения на 2​ в Pascal ABC

Answer 1

Ответ:

program abc;

const N=10;

const C=2;

var a, k:Integer;

I:integer;

begin

A:=0;

for i:=1 to N do begin

A:=A+1;

K:=A*C;

writeln(A,'*',C,'=',K)

End;

End.

Answer 2

Ответ:

var i:integer;

begin

for i:=1 to 10 do writeln(i:2,' * 2 = ',i*2)

end.

Answer 3

Конечно! Вот пример программы на Pascal ABC, которая выводит на экран первые 10 строк таблицы умножения на 2:

pascalCopy code
program MultiplicationTable;

var
  i, result: integer;

begin
  for i := 1 to 10 do
  begin
    result := 2 * i;
    writeln('2 * ', i, ' = ', result);
  end;
end.

Эта программа использует цикл for для итерации от 1 до 10. На каждой итерации она вычисляет результат умножения числа 2 на текущее значение итератора (2 * i) и выводит результат на экран с помощью writeln.

При запуске программы, вы увидите следующий вывод:

Copy code
2 * 1 = 2
2 * 2 = 4
2 * 3 = 6
2 * 4 = 8
2 * 5 = 10
2 * 6 = 12
2 * 7 = 14
2 * 8 = 16
2 * 9 = 18
2 * 10 = 20

Каждая строка представляет собой результат умножения числа 2 на число от 1 до 10.