Предмет: Информатика,
автор: lovelyhelen
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от D до I.
Ответы
Автор ответа:
0
// PascalABC.NET 3.0, сборка 1088
var
MySet:set of char;
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in ['D'..'I'] then Include(MySet,s[i]);
Writeln('Состав множества: ',MySet)
end.
Тестовое решение:
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}
var
MySet:set of char;
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in ['D'..'I'] then Include(MySet,s[i]);
Writeln('Состав множества: ',MySet)
end.
Тестовое решение:
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Английский язык,
автор: MrNeGaT1Ve
Предмет: Математика,
автор: 078983788t
Предмет: Математика,
автор: vitaliyizotov
Предмет: Математика,
автор: natalinadirova