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

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

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

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

Листинг программы

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.

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

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, ' = ', ig); - writeln; - end;
End. В данном коде программа выводит на экран таблицу умножения от 1 до 9, используя значения переменных MIN и MAX для определения диапазона таблицы.

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

9 голосов , оценка 3.889 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы