Question

программа евклида в паскаль где нод 40 и 64

Answer 1

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.