zadach421.BAS

{* Задача421 *}

REM basic

' Составить программу сокращающую обыкновенные дроби
' входные данные: два целых числа - числитель и знаменатель дроби.
' выходные данные: два целых числа - числитель и знаменатель скрашенной дроби.


INPUT a, b
c = a
d = b
If c < d Then SWAP c, d
Do While c  0 And d  0
c = c Mod d
SWAP c, d
Loop
PRINT a / c; "/"; b / c
End