Решить по информатике, с объяснением скорость 128кбит/с, отправили письмо, которое содержало 16 страниц, одна страница содержит 16 строчек по 512 символов, за сколько секунд было послано письмо
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.
16*16*512*8 бит / (128*1024) бит/с = 8 секунд