Решить в pascal
пусть имеется следующее описание
n=41
m=29
n- количество строк
m - количество столбцов
получить матрицу случайных целочисленных шестизначных целых чисел
в каждой строке матрицы выполнить над числами матрицы одно из следующих преобразований (задается во время выполнения программы)
должны быть подпрограммы :
печать
инициализация
функция выполняющая над целым числом указанное преобразование
преобразование матрицы
{ Нахождение НОД }
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;
procedure ShortFraction(var m,n:longint);
var
k:longint;
begin
k:=Gcd(m,n);
m:=m div k; n:=n div k
end;
var
a,b:longint;
begin
Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
ShortFraction(a,b);
Writeln('Дробь после сокращения равна ',a,'/',b)
end.
Тестовое решение:
Введите числитель и знаменатель дроби: 25 15
Дробь после сокращения равна 5/3