6
Объяснение:
на каком языке надо? На на Pascal
var
m, n : Integer;
begin
m := 696;
n := 234;
while m<>n do
if m>n then
m := m-n
else
n := n-m;
writeln(Format('%d ', [m]))
end;
6
Объяснение:
на каком языке надо? На на Pascal
var
m, n : Integer;
begin
m := 696;
n := 234;
while m<>n do
if m>n then
m := m-n
else
n := n-m;
writeln(Format('%d ', [m]))
end;