zadach66.BAS

{* Задача66 *}

REM basic

' Ввести программу для нахождения НОД чисел М и N. Исполнить ее для M=1000, N=625; M=1236312, N=9822.


10 INPUT M,N
20 Let X=M
30 Let Y=N
40 PRINT X,Y
50 If X=Y Then 110
60 If X>Y Then 90
70 Let Y=Y-X
80 GoTo 50
90 Let X=X-Y
100 GoTo 50
110 PRINT “НОД ЧИСЕЛ M и N РАВЕН”;X
120 End