Вывести на экран таблицу умножения - Pascal

Узнай цену своей работы

Формулировка задачи:

Ребят помогите решить две задачки. Заранее благодарю. 1) Вывести на экран таблицу умножения вида: 1*1=1 1*2=2 … 9*9=81 (Примечание: используйте два вложенных цикла) 2)

Решение задачи: «Вывести на экран таблицу умножения»

textual
Листинг программы
program Multiply;
 
const
  MIN = 1;
  MAX = 9;
 
var
  i, g : Integer;
  
begin
  writeln('Внимание, таблица умножения от ', MIN, ' до ', MAX);
  writeln;
  
  for i := MIN to MAX do
    begin
      for g := MIN to MAX do
        writeln(i, '*', g, ' = ', i*g);
      writeln;
    end;
end.

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

  1. Program Multiply;
  2. Const   - MIN = 1   - MAX = 9
  3. Var   - i, g : Integer;
  4. Begin   - writeln('Внимание, таблица умножения от ', MIN, ' до ', MAX);   - writeln;   - for i := MIN to MAX do     begin     - for g := MIN to MAX do         writeln(i, '', g, ' = ', ig);     - writeln;   - end;
  5. End. В данном коде программа выводит на экран таблицу умножения от 1 до 9, используя значения переменных MIN и MAX для определения диапазона таблицы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы