Question

Введите необходимый знак в программу, который должен стоять на место "...", чтоб программа правильно вычислила НОД:
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;
write ('НОД=',m);
end.

Answer 1

var m,n:integer;
Begin
write('Введите m и n: ');
readln (m,n);
while m<>n do
begin
If m>n then m:=m-n
else n:=n-m
end;
write ('НОД=',m)
end.

На место "..." ставим "<>"