Написать программу на паскале дана строка символов .проверить есть ли в этой строке все буквы,входящие в слово "тигр"

111

272

Посмотреть ответы 2

Ответы на вопрос:

hvorovmax

Информатика

4,7(4 оценок)

Var i,n,k,z,x: integer; s: string; beginwriteln(s); readln(s); for i: =1 to length(s) do beginif (s[i]='т') then n: =n+1; end; for i: =1 to length(s) do beginif (s[i]='и') then k: =k+1; end; for i: =1 to length(s) do beginif (s[i]='г') then x: =x+1; end; for i: =1 to length(s) do beginif (s[i]='р') then z: =z+1; end; if ((n> 0) and (k> 0) and (x> 0) and (z> 0)) then writeln('есть все буквы')else writeln('no'); end.