решите одно из этих заданий.БЫСТР 1.
Шифрование представлено следующим образом: к порядковому
номеру каждой буквы прибавлялось значение многочлена
f(x) = x5+ 2x4+ x3+ 5x2– 44x + 37, вычисленное либо при x1, либо при x2,
либо при x3, либо при x4, где x1, x2 – корни уравнения x2+2x – 5 = 0, а x3,x4 – корни уравнения x2+ x + 7 = 0. Затем полученное число заменялось
соответствующей ему буквой. Известно, что каждому символу русского
алфавита (33 буквы) присвоен номер: А = 1, Б = 2,…, Я = 33, пробел = 34.
Расшифруйте сообщение: С П С В Ё К Б Д Б Г Е Ф Ц
2.
Предприниматель купил n погонных метров профлиста и решил
отгородить земельный участок прямоугольной формы. Одну из сторон
он мог заменить ранее построенным забором. Какую наибольшую
площадь можно занять при этих условиях.
3.
Мудрец собрал учеников: Азариаса, Джудаса, Ксантоса, Фотиса.
Известно, что они независимо друг от друга только в одном случае из
трех говорят правду. Азариас утверждает, что Джудас отрицает, что
Ксантос говорит, будто Фотис солгал мудрецу определить
вероятность того, что Фотис сказал правду.
4.
Для передачи букв русского алфавита используется 5 проводов. По
каждому передается соответствующий разряд пятизначного двоичного
числа. Известно, что буквы кодируются следующим образом: каждой
букве ставится двоичная запись ее номера, начиная с нуля т.е. А =
00000, Б = 00001, …, Ю = 11110, Я = 11111 (Е и Ё не различаются). При
монтаже провода были перепутаны. Исходный текст был
осмысленным. Восстановите его.
Полученный текст: Ы А В А Г Р О
5.
При каких значениях a график функции
пересекает ось
абсцисс под углом
(хотя бы в одной из точек пересечения)?

Procedure p(a: integer); var     b: byte;     s,z: string; begin if a = 0 then write('ноль') else     begin     if a < 0 then           begin           z: ='минус ';           a: =-a;           end;     b: =a mod 100;     if b div 10 = 1 then           case b mod 10 of           0: s: ='десять';           1: s: ='одиннадцать';           2: s: ='двенадцать';           3: s: ='тринадцать';           4: s: ='четырнадцать';           5: s: ='пятнадцать';           6: s: ='шестнадцать';           7: s: ='семнадцать';           8: s: ='восемнадцать';           9: s: ='девятнадцать';           end     else           begin           case b mod 10 of           1: s: ='один';           2: s: ='два';           3: s: ='три';           4: s: ='четыре';           5: s: ='пять';           6: s: ='шесть';           7: s: ='семь';           8: s: ='восемь';           9: s: ='девять';           end;           case b div 10 of           2: s: ='двадцать '+s;           3: s: ='тридцать '+s;           4: s: ='сорок '+s;           5: s: ='пятьдесят '+s;           6: s: ='шестьдесят '+s;           7: s: ='семьдесят '+s;           8: s: ='восемьдесят '+s;           9: s: ='девяносто '+s;           end;           end;           case (a div 100) mod 10 of           1: s: ='сто '+s;           2: s: ='двести '+s;           3: s: ='триста '+s;           4: s: ='четыреста '+s;           5: s: ='пятьсот '+s;           6: s: ='шестьсот '+s;           7: s: ='семьсот '+s;           8: s: ='восеьсот '+s;           9: s: ='девятьсот '+s;           end;     writeln(z+s);     end; end; var     a: longint; begin write('введите целое число: '); readln(a); p(a); end.