
Никандр
5 год назад
Дана последовательность символов. Выяснить, имеются ли в ней все буквы, входящие в слово шина
ОТВЕТЫ

Mira
Oct 24, 2020
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
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
Смежные вопросы: