Паскаль. составить программу для решения следующей : даны числа a, b - целые (< > 0). сократить дробь a/b. сначала найти нод этих двух чисел. затем знаменатель и числитель разделить на нод.
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017 // Внимание! Если программа не работает, обновите версию!
begin var p,q:integer; Write('Введите числитель и знаменатель: '); Read(p,q); var a:=abs(p); var b:=abs(q); while b<>0 do begin a:=a mod b; Swap(a,b) end; p:=p div a; q:=q div a; Writeln('Результат: ',p,'/',q) end.
Пример Введите числитель и знаменатель: 1440 16200 Результат: 4/45
// Внимание! Если программа не работает, обновите версию!
begin
var p,q:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
var a:=abs(p);
var b:=abs(q);
while b<>0 do begin a:=a mod b; Swap(a,b) end;
p:=p div a;
q:=q div a;
Writeln('Результат: ',p,'/',q)
end.
Пример
Введите числитель и знаменатель: 1440 16200
Результат: 4/45