4. составить программу проверяющую, лежит ли точка с указанными координатами x, y на окружности радиуса r с центром в начале координат
130
417
Ответы на вопрос:
Var a : integer; s : set of byte; begin s: =[]; readln(a); repeat if (a mod 10) in s then write(a mod 10: 2) else include(s,a mod 10); a: =a div 10; until a=0; writeln; end.
Популярно: Информатика
-
TheAgentSquid03.07.2022 02:41
-
vladyslav252309.10.2022 14:34
-
MARI536833427.11.2021 08:45
-
ErikaKrass16.04.2023 05:46
-
666Default66615.11.2022 11:45
-
daryaladelshhikova17.03.2022 19:31
-
Буууууууууууууурито26.12.2022 23:33
-
миссЧудесная09.01.2022 06:05
-
вязова1настя22.09.2022 07:56
-
omon356524.06.2022 10:52