0 1 2 3 4 5 10 11 12 13 14
_____________
Да, всё правильно. При неправильной команде СКИ выдаст "не понимаю", при невозможности исполнения выдаст "не могу"
// 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.
<u><em>Тестовое решение:</em></u>
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}
Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон