** паскале написать программу сокращения дроби , где N – целое, M – натуральное число....

Question

На паскале написать программу сокращения дроби , где N – целое, M – натуральное число. Использовать алгоритм Евклида. Разработать тесты для проверки правильности работы программы.

Answer 1

Program ex2;
uses crt;
var a, b, x: real;
begin clrsc;
write('a='); readln(a);
write('b='); readln(b);
{алг. Евклина для НОД}
end.

Answer 2

Var
 n,m:integer;
 a,b:integer;
begin
 read(n,m);
 a := abs(n);
 b := m;
 while a <> b do
   if a > b then
     a := a - b
   else
     b := b - a;
 b := m div a;
 a := n div a;
 writeln(a,'/',b);
 if a*m = b*n then writeln('Correct')
end.