Скачать программы Все программы автораЗадание №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.{конец программы} |