Вопрос школьника по предмету Информатика
Напишите программу, которая определяет количество различных символов, встречающихся в символьной строке.
Входные данные
На вход программы подаётся символьная строка.
Выходные данные
Программа должна вывести количество различных символов в этой строке.
Примеры
входные данные
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.
Похожие вопросы от пользователей
деревьев в 14 таких рядах.
1)Да, на казахском языке можно говорить.
2)Да, полезно знать несколько языков.
3)Казахский язык стал национальным в 1989 году.
4)День языков отмечается 22 сентября.
5)22 сентября 1989 года был принят закон «О языках в Республике Казахстан».
6)Люди, которые разговаривают на нескольких язык- полиглот.
7)В школе я учу 4 языка.
1) древние земноводные
2)ихтиостеги
3)зверозубые пресмыкающиеся
4)стегоцефалы
2.У млекопитающих высокий уровень развития получила нервная система , особенно
1)мозжечок
2)зрительные бугры среднего мозга
3)большие полушария
4)продолговатый мозг
3.Предком домашних лошадей является
1)муфлон
2)аргали
3)тарпан 4)тур