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

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.

Question

Информатика

Митяй

18 ноября, 04:34

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

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.

+3

Ответы (1)

Знаете ответ на вопрос?

Магда · Answer 1

Var m, n:integer;

Begin

write ('Введите m и n: ') ;

readln (m, n) ;

while mn do

begin

If m>n then m:=m-n

else n:=n-m

end;

write ('НОД=', m)

end.

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