Question

Написать программу, которая запрашивает целое число и выводит на экран таблицу умножения на это число от 1 до 10. Pascal ABC

Answer 1

Program umn;

var
n, i: Integer;

begin
Write('Введите число: ');
readln(n);
for i := 1 to 10 do
Write(n, '*', i, '=', n * i, #10);
end.

Answer 2

Конечно, вот пример программы на Pascal ABC, которая выполняет задачу:

pascalCopy code
program MultiplicationTable;

var
  number, i: integer;

begin
  // Запрашиваем у пользователя целое число
  write('Введите целое число: ');
  readln(number);

  // Выводим таблицу умножения от 1 до 10
  writeln('Таблица умножения на ', number, ':');
  for i := 1 to 10 do
  begin
    writeln(i, ' * ', number, ' = ', i * number);
  end;
  
  readln; // Ждем, пока пользователь нажмет Enter
end.

Скопируйте этот код в свою среду разработки Pascal ABC и запустите программу. Она запросит у вас целое число и затем выведет таблицу умножения для этого числа от 1 до 10.