Ответы на вопрос:
var i,x,y: integer; b: boolean; beginreadln(x,y); for i: =2 to x doif (x div i=x/i) and (y div i=y/i) then beginx: =x div i; y: =y div i; end; writeln(x,' ',y); end.
Популярно: Информатика
-
volodjpanchuk1922.08.2021 00:54
-
солнышко27921.03.2022 07:39
-
dianakazaryan129.10.2020 18:41
-
kategys26.03.2020 06:32
-
арипов124.09.2021 02:12
-
dhwaaо14.09.2021 15:16
-
Zemoten05.02.2020 06:51
-
myrzik5293p081ps01.11.2022 01:13
-
axmet202.04.2020 10:15
-
madmiss04.04.2022 06:16