Ответы на вопрос:
Var y, b: string; i: integer; begin readln(y); for i : = 1 to length(y) do if (pos(y[i], b) = 0) then b : = concat(b, y[i]); writeln(length(b)); end.
Популярно: Информатика
-
Билимленд 8.12.20. ответы на 4-задания...
умно5556708.05.2022 07:34 -
Написать программу на С.Задано действительное число, написать выражение,которое...
30Космос0309.07.2021 04:49 -
Задание 1. Оцените временную сложность алгоритма вычисления факториала (произведения)...
IkaNika26.03.2021 18:59 -
Укажите жизненные ситуации,в которых осуществляется хранения информации....
46hitman4623.11.2022 21:51 -
Пример: Перебор яблок Пока яблоки в ящике не закончатся взять из ящика яблоко;...
beatsdol04.04.2020 13:09 -
Паскаль. Написать программу так чтобы в исходном массиве поменялись местами...
viktorijavorob22.09.2022 00:46 -
Выберите условия, правильно записанные на языке Pascal: Варианты ответов...
sasha32232203.09.2021 09:23 -
Сделайте по информатике...
2shIk07.04.2022 05:58 -
Переведите числа из десятичной в двоичную систему счисления : 34 259 1723...
mkm326.10.2022 18:33 -
Определите, что выполняет данный код программы на языке c++ { for (n = 2;...
anitabmw05.04.2021 12:38