Скачать программы    Все программы автора

Задание №8

Ввести строку и построить множество, состоящее из латинских букв, которые хотя бы раз встречаются во введенной строке. Вывести это множество.

Program Mnog;{наименование программы}

var{описание переменных}

a:string;

b:set of char;

i:integer;

begin{начало программы}

write('Введите строку');

read(a);

for i:=1 to length(a) do

if (a[i]>='A') and (a[i]<='Z') or

(a[i]>='a') and (a[i]<='z')

then {присвоение значения переменной}

b:=b+[a[i]];

for i:=65 to 90 do

if chr(i) in b then

write (chr(i));

for i:=97 to 122 do

if chr(i) in b then

write (chr(i));{вывод значения на экран}

end.{конец программы}