Программа евклида в паскаль где нод 40 и 64
Программа евклида в паскаль где нод 40 и 64
Гость
Ответ(ы) на вопрос:
Гость PROGRAM P_1;
VAR
A,B: INTEGER;
BEGIN
A:=40;
B:=64;
REPEAT
IF A>B THEN A:=A-B
ELSE B:= B-A;
Until A=B;
WRITELN ('NOD = ' , A);
END.
Не нашли ответ?
Похожие вопросы