Держи! Во втором варианте не учитывал что могут быть одинаковые имена, но разные фамилии и поэтому возможно некоторое нарушение в сортировке. Торопился, так как тебе видимо надо побыстрее. Но если надо, то реализую :)
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<span>
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')
<span>end.</span></span>
1 Кб (если Кб это все таки килобайты а не килобиты) =1024 байта
значит 3 кб это 32 768 байт.
1 байт это 8 бит, значит
в 32 килобайтах содержится 32 768*8=262 144 бит.
Один печатный символ это 1 бит.
В секунду принтер распечатае 64 бита, значит 262 144 бита (или 32 кб или 1 лист) он распечатает за 262 144/64= 4 096 секунд, значит 2 листа он распечатает за 8 192 секунды
В минутах это будет 8 192/60= 136 минут и 32 секунды.
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB
13 сентября 1956 года, то есть более полвека назад компания IBM представила свой первый накопитель на жестких магнитных дисках (позднее данные устройства получили полуофициальное прозвище «винчестер») .
И это изобретение со временем фактически создало огромную индустрию магнитных накопителей, без которых сейчас немыслимо ни одно мало-мальски мощное вычислительное устройство, поскольку подавляющее большинство информации, которыми оперируют эти самые вычислительные устройства, хранится именно на магнитных носителях.