Представьте ip адрес из четырех десятичных чисел в 32 битовый вид 230.57.29.144
244
290
Ответы на вопрос:
//pascal abc.net 3.1 сборка 1219 var x,y,i: integer; function nod(x,y: integer): integer; begin while x*y< > 0 do if x> y then x: =x mod y else y: =y mod x; nod: =x+y; end; begin readln(x,y); for i: =1 to x div 2 do if (x mod i=0) and (nod(i,y)=1) then writeln(i); end. пример ввода: 15 27 пример вывода: 1 5
Популярно: Информатика
-
kristipus200326.04.2020 12:07
-
yokofoku10.10.2020 21:16
-
таллвовоч11.07.2022 06:23
-
tiger07106.03.2020 05:55
-
flagvamvruke29.09.2020 05:42
-
Nqva22.07.2021 04:42
-
Школьник252517.07.2021 17:18
-
chvdima11.12.2022 23:49
-
максаткайрат19.01.2020 02:19
-
liyakhakimova11.02.2021 05:45