Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности: буквы от 'Т до 'X' и знаки препинания.
Решение...
uses crt;
const symbol=[';',',','.',':','!','?'];
bol=['T','U','V','W','X'];
var
g:set of 'T'..'X';
b:set of ';'..'?';
i,d:char;
begin
g:=[ ];
b:=[ ];
repeat
begin
read(d);
if d in symbol then
g:=g+[d];
if d in bol then
b:=b+[d];
end;
until d:='@';
readln;
for i:='T' to 'X' do
if i in g then
write(i);
end;
for i:=';' to '?' do
if i in b then
write(i);
end;
readln;
end.
На прикрепленном скрине видно на что ругается, помогите исправить!! Пожалуйста!!
Сообщение отредактировано: Altair -