Введите необходимый знак в программу, который должен стоять ** место "...", чтоб...

0 голосов
24 просмотров

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


Информатика (72 баллов) | 24 просмотров
Дан 1 ответ
0 голосов

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.

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

(3.9k баллов)