Найти наибольший общий делитель натуральных чисел А и В- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DO
INPUT "vvedite 1 chislo ", a
IF a <= 0 THEN PRINT "nevernyj vvod"
LOOP UNTIL a > 0
DO
INPUT "vvedite 2 chislo ", b
IF b <= 0 THEN PRINT "nevernyj vvod"
LOOP UNTIL b > 0
X = a
Y = b
DO
IF X > Y THEN X = X - Y ELSE Y = Y - X
LOOP UNTIL X = Y
PRINT "NOD chisel"; a; "i"; b; "="; X
END

Похожие записи/страницы:

Leave a Comment