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

Question

Информатика

Еля

26 ноября, 03:50

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

+2

Ответы (1)

Знаете ответ на вопрос?

Витяхя · Answer 1

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