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

Question

Информатика

Иоланта

31 марта, 11:31

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

+3

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