Ответ:
Отяаьщшърь беняй, ш фцхый эюьхтпнщ.
Яэьгпнацщяш, сн эьхсыь. Тьа ьы, эюцпнщ!
Эьщбхынчшн - ъыцщ ятош ъбсютдьъ
Ц хныьяецпь фснщ ынрюс ц эьгпнщ
ьяанщйыиг ътеанщ хняьоьл птяац,
Н ьыу ътыш янъц яоцщц я эбац.
(это только часть стиха)
Объяснение:
А=Н Б=О это не сложно но долго. После составления ключ-таблицы мы шифруем стих
Деление в столбик на 2 с остатком, до тех пор, пока частное не станет равным 1. Запись начинается с конца (см. рис.)
Var
b: double;
begin
readln(b);
writeln('z = ', System.Math.Pow(sin(4 * sqr(3 * b - 4)), 4));
<span>end.</span>
File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string;
begin
write('Введите строку : ');
readln(s);
write('Введите слово : ');
readln(a);
if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
else writeln('В строке такого слова нет');
end.
Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть
Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет