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

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

Информатика

Митяй

3 марта, 01:15

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

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.

+5

Ответы (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.

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