ПОМОГИТЕ, пожалуйста :) Получив на вход число x этот алгоритм печатает число M. Изв??стно что x>100. Укажите наименьшее такое число x при вводе которого алгоритм печатает 16 var x,L,M:integer; begin readln(x); L:=x-16; M:=x+16; while L<>M do if L>M then L:=L-M else M:=M-L; writeln(M); end.

?стно что x>100. Укажите наименьшее такое число x при вводе которого алгоритм печатает 16 var x,L,M:integer; begin readln(x); L:=x-16; M:=x+16; while L<>M do if L>M then L:=L-M else M:=M-L; writeln(M); end.

  • 08-08-2007 17:48
  • Просмотры: 10
Ответы ( 1 )
Inna Bubyr
+1
09-08-2007 03:41