Вывести на экран все русские согласные буквы строки в алфавитном порядке. - Pascal ABC
Формулировка задачи:
Вывести на экран все русские согласные буквы строки в алфавитном порядке.
пж ребят
Решение задачи: «Вывести на экран все русские согласные буквы строки в алфавитном порядке.»
textual
Листинг программы
type
T_buk = set of char;
var
a,b:T_buk;
s:string;
i,k:integer;
begin
writeln('Введите строку');
readln(s);
b:=[];
a:=['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];
for i:=1 to length(s) do
if s[i] in a then
begin
include(b,s[i]);
end;
for i:=1 to 255 do
if chr(i) in b then
write(chr(i):2);
end.