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>
Ну тут совсем всё просто:
Смотрим на входные данные, исходное слово "апельсин", а зашифрованное "твчюодыа".
Вспоминаем принцип шифра "Цезаря", что бы зашифровать текст, необходимо определить сдвиг по алфавиту, так называемый "корень". То есть, если корень равен 3, то все буквы А в исходном послании заменятся на (сдвигаемся по алфавиту на 3 буквы вправо) букву Г. Но что делать если мы шифруем букву Ю? Считаем сдвиг Ю - Я это 1, а дальше просто "прыгаем" в начало алфавита Я - А это 2, А - Б это 3, следовательно при ключе 3 буква Ю станет буквой Б.
В нашем случаи все что нужно, так это проверить, на сколько букв сместилась буква "а", в слове "апельсин", что превратилась в букву "т", в слове "твчюодыа".
Смотрим по даному алфавиту и считаем количество сдвигов, это будет 19. Теперь провевим, что если сдвинуть остальные буквы в слове апельсин на 19 символов вправо по алфавиту, если они будут соответствовать зашифрованым, то мы нашли корень правильно.
В нашем случаи именно так и есть, то есть ответ задачи ключь = 19.
Скорость передачи = 450 Кбайт / 38 c = 450 * 8 * 1024 бит / 38 c = 97010.52631578948 бит/с
Объем переданных данных = 37 мин * 97010.52631578948 бит/с = 37 * 60 c * 97010.52631578948 бит/с = 215363368.42105263 бит = 215363368.42105263 / 8 / 1024 / 1024 Мбайт = 25.673314144736842 Мбайт
Тогда полных Мбайт = 25
Загадки про доброЕго не скушаешь, но вкус его сладок!Его не видишь, но вид его приятен!Оно может быть близко, если ты веришь в это!Оно рядом, но его не потрогаешь!Ответ: Добро Какая голова сто рук прокормит? Ответ: Добрая Не хвались серебром, а хвались... Чем? <span>Ответ: </span>Добром Меня бьют, колотят, А я все терплю-людям добром плачу. <span>Ответ: </span>Хлеб
Основные устройства которые имеет компьютер - системный блок, центральный процессор, монитор, клавиатура, мышь. Дополнительные устройства - принтер, сканер, модем.
Процессор - устройство обработки информации.
<span>Винчестер (жёсткий диск), флешки, дискеты - устройства хранения информации.
</span>