Лиллипуты подарили Гулливеру на новый год шоколадку. Поскольку лилипуты маленькие, а Гулливер – большой, то шоколадку, состоящую из маленьких квадратных долек, они сделали очень большой: в виде прямоугольника 4200 на 9126. Гулливер решил есть ее так: сначала он отламывает большой квадратный кусок со стороной, равной меньшей стороне прямоугольника, и съедает его. Затем от оставшегося прямоугольника отламывает кусок со стороной, равной меньшей стороне оставшегося прямоугольника и тоже съедает его и так далее, пока не останется последний кусок (удивительно, но последний кусок тоже имеет форму квадрата!), который он также съедает. Определите, чему равна длина стороны последнего куска, который съест Гулливер. В качестве ответа выведите одно натуральное число, например, 5.
Answers & Comments
Verified answer
Var a,b,k:integer;begin
readln(a,b);
k:=0;
while a*b<>0 do begin
if a>b then a:=a-b else b:=b-a;
k:=k+1;
end;
writeln(k);
end.
Пример:
4200 9126
22