Составить таблицу умножения на заданное число (от 2 до 9). P.S. Написать программу в Паскале через while

Чтобы составить таблицу умножения на заданное число (например, от 2 до 9) в языке программирования Паскаль, можно воспользоваться циклом while. Программа будет принимать число от пользователя и выводить его таблицу умножения. Вот пример программы, которая запрашивает у пользователя число и с помощью цикла while выводит таблицу умножения для этого числа от 1 до 10.

Программа на Паскале

pascal
program MultiplicationTable;
uses crt;
var
  number, i: integer;
begin
  clrscr;
  
  writeln('Введите число для таблицы умножения (от 2 до 9):');
  readln(number);
  
  if (number < 2) or (number > 9) then
  begin
    writeln('Ошибка: введите число от 2 до 9');
  end
  else
  begin
    i := 1;
    writeln('Таблица умножения для числа ', number, ':');
    
    while i <= 10 do
    begin
      writeln(number, ' * ', i, ' = ', number * i);
      i := i + 1;
    end;
  end;
  
  readln;
end.

Объяснение работы программы

1. Объявление переменных:

   • number: переменная, в которую будет сохранено число, введенное пользователем.
   • i: переменная-счетчик, используемая для цикла while, которая изменяется от 1 до 10.

2. Ввод числа:

   • Пользователю предлагается ввести число от 2 до 9. Если введенное значение выходит за границы этого диапазона, программа выводит сообщение об ошибке и завершает выполнение.

3. Цикл while для умножения:

   • Если введенное число соответствует диапазону, программа запускает цикл while.
   • Цикл while выполняется, пока значение переменной i меньше или равно 10. На каждом шаге цикла:
     • Программа вычисляет произведение number * i.
     • Выводит строку с результатом умножения, например, "5 * 3 = 15".
     • Увеличивает значение i на 1, чтобы продвинуться к следующей строке таблицы умножения.

4. Завершение программы:

   • После завершения цикла программа останавливается и ждет нажатия клавиши Enter для завершения работы.

Пример работы программы

Допустим, пользователь вводит число 5. Программа выведет таблицу умножения для числа 5, от 1 до 10:

yaml
Таблица умножения для числа 5:
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

Эта программа проста и демонстрирует базовый пример использования цикла while в языке Паскаль для выполнения повторяющихся операций.