Написать программу в паскалеНапишите программу, подсчитывающую количество различных букв в заданном слове.Входные данные: ввести строкy Y с длиной не более 255 символов.Выходные данные: вывести одно число, количество различных символов в данной строке.
Ответы:
27-11-2015 05:21
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.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Написать программу в паскалеНапишите программу, подсчитывающую количество различных букв в заданном слове.Входные данные: ввести строкy Y с длиной не более 255 символов.Выходные данные: вывести одно число, количество различных символов в данной строке.» от пользователя Павел Комаров в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!