Регистрация
Войти
Стать экспертом Правила
Информатика

Дана последовательность символов. Выяснить, имеются ли в ней все буквы, входящие в слово шина

ОТВЕТЫ
var s,t:string; k,i:integer;
begin
readln(s);
t:='шина';
k:=0;
for i:=1 to length(t) do
 if pos(t[i],s)>0 then k:=k+1;
if k=length(t) then writeln('YES')
else writeln('NO');
end. 

Пример:
шикарный
YES
495
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам