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

Посмотреть архив целиком

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






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


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





нет



Случайные файлы

Файл
54972.rtf
136664.rtf
154585.rtf
63221.rtf
182030.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.