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

Question

Информатика

Иоланта

2 июля, 11:40

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

+5

Ответы (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