PascalABC.NET
begin
var (n,m) := ReadInteger2;
While M <> N do begin
if M > N then
M-=N
else
N-=M;
end;
m.Println;
end.
M = 32; N = 24: Ответ 8;
M = 696; N = 234: Ответ 6.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET
begin
var (n,m) := ReadInteger2;
While M <> N do begin
if M > N then
M-=N
else
N-=M;
end;
m.Println;
end.
M = 32; N = 24: Ответ 8;
M = 696; N = 234: Ответ 6.