Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от ‘T’ до ‘X’ и знаки препинания - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

program _;
const
a=['T'..'X',',','.','?','!',':',';'];
var
i:integer; s:string;
begin
writeln('------');
readln(s);
for i:=1 to length(s) do
if s[i] in a then write(s[i],' ');
end.

Похожие записи/страницы:

Leave a Comment