01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 8 лабораторка / Дана последовательность символов за которой следует точка

Дана последовательность символов, за которой следует точка. Создать множества латинских букв из данной последовательности символов и распечатать это множество в алфавитном порядке.

• Текст программы:

var

s:string;

latset:set of 'A'..'z';

i:integer;

ch:char;

begin

readln(s);

i:=1;

while s[i]<>'.' do begin

include(latset,s[i]);

inc(i);

end;

for ch:='A' to 'z'do

if ch in latset then

write(ch);

readln;

end.

• Исходные данные: dfbfcbdjghdkjvndfg. Результата: bcdfghjknv

нет