Ответы на вопрос:
Var n, i: integer; a: array [0..9] of integer; begin for i : = 0 to 9 do a[i] : = 0; readln(n); while (n < > 0) do begin inc(a[n mod 10]); n : = n div 10; end; for i : = 0 to 9 do if (a[i] < 2) then write(a[i],' '); end.
Популярно: Немецкий язык
-
Sergei7418.04.2020 19:10
-
SkeCreeper23.05.2020 18:12
-
kirilladmiiral25.10.2022 13:48
-
olechka16228.05.2023 21:16
-
Сириc20.11.2020 12:58
-
На0вид0ангел05.02.2020 10:08
-
8928616350326.02.2022 06:52
-
voirakbarov5gmailcom25.03.2020 14:19
-
fddfgdgdhf20.06.2021 05:12
-
slaider112317.12.2022 15:03