Выполните на компьютере программу Evklid (из параграфа). Протестируйте ее на значениях M = 32, N = 24
Выполните на компьютере программу Evklid (из параграфа). Протестируйте ее на значениях M = 32, N = 24; M = 696, N = 234.
Program Evklid;
var M, N: integer;
begin
writeln ('Введите M и N');
readln (M, N);
while (M<>N)
do begin
if M>N
then M:=M-N
else N:=N-M
end;
writeln ('НОД = ', M)
end.
M = 32, N = 24; НОД (32, 24) = 8
M = 696, N = 234; НОД (696, 234) = 6