Решить . написать код. если в заданную строку символов входит каждая из букв слова key, тогда напечатать yes, иначе - no.

158

171

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

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

kozlovaangelina

Информатика

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

Vb. dim msg as string msg = inputbox("введите строку") dim s as integer if msg.indexof("k") > -1 then s += 1 if msg.indexof("e") > -1 then s += 1 if msg.indexof("y") > -1 then s += 1 if s = 3 then msgbox("yes") else msgbox("no")pascal.program chislo; var x : integer; msg : string; begin write('введите строку: '); readln(msg); if pos(msg,'k')> 0 then x: =x+1; if pos(msg,'e')> 0 then x: =x+1; if pos(msg,'y')> 0 then x: =x+1; if (x=3) then writeln('yes') else writeln('no')end.