Saiwyn
5 год назад
Напишите программу, которая определяет количество различных символов, встречающихся в символьной строке.Входные данныеНа вход программы подаётся символьная строка.Выходные данныеПрограмма должна вывести количество различных символов в этой строке.Примерывходные данныеaB122ABвыходные данные5Pascal ABC 1.8
ОТВЕТЫ
Милана
Oct 24, 2020
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.
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.
458
Смежные вопросы:
