Вопрос школьника по предмету Информатика
Напишите программу, которая определяет количество различных символов, встречающихся в символьной строке.
Входные данные
На вход программы подаётся символьная строка.
Выходные данные
Программа должна вывести количество различных символов в этой строке.
Примеры
входные данные
aB122AB
выходные данные
5
Pascal ABC 1.8
Ответ учителя по предмету Информатика
var used: Set of Char;
s: string;
i, cnt: integer;
c: char;
begin
used := [];
readln(s);
for i := 1 to length(s) do
include(used, s[i]);
cnt := 0;
for c := #0 to #255 do
if (c in used) then
cnt := cnt + 1;
writeln(cnt);
end.
Похожие вопросы от пользователей
Помогите!!!
I can ckate
………………………..skate.
I swim every day.
……………………… every day.
She swims every day.
………………………..every day.
She can swim.
………………………..swim.
She is a good pupil.
………………………..a good pupil.
2. В саду собрали 8400 кг яблок. На долю антоновских яблок приходится 45% всего урожая. Ск.
килограммов антоновских яблок собрали в саду?
3. Из овса получается 40% муки. Ск. муки получится из 26,5 т овса?
только подробно пж