Миша придумал шифр, в котором каждая буква заменяеться рисунком по однаму и томуже алгаритму. начало алгаритм"замена буквы рисунком" 1.подчеркнуть в шифруемом слове заменяемую букву . 2.записать букву которая в алфавите следует за подчёркнутой буквой. 3.написать название животного начинающееся с записыной буквы. 4 .нарисовать животного. конец а. зашифруй слово это сделала ответ-ёж -ж-жираф ия нарисовала жирафа дальше: ёж -з-зебра я нарисовала зебру а дальше я не могу b.составить алгаритм расшифровки надо

Например, слово "альбом" подчеркиваем букву "а", записываем букву, следующую в алфавите за буквой "а" - "б", пишем название животного "бегемот", рисуем бегемота; подчеркиваем букву "л", за ней идет буква "м", название животного "мамонт", рисуем бегемота и т.д.

отдел +;

использует из "";

пер

  массив_чисел: ряд 100 из цел;

  сч, мин, ном: цел;

указ

  от сч : = 0 до размер(массив_чисел) - 1 вып

    массив_чисел[сч] : = - узк(вширцел(.случ() * 1000))

  кон;

  мин : = массив_чисел[0]; ном : = 0;

  от сч : = 1 до размер(массив_чисел) - 1 вып

    если массив_чисел[сч] < мин то

      мин : = массив_чисел[сч]; ном : = сч

    кон

  кон

  (* мин - минимальное значение, ном - его номер *)

кон .

обрати внимание на то, что считается фактическое минимальное значение, а не минимальный модуль.

Program kvur; var a,b,c,d: real; begin writeln('решение квадратного уравнения(ax^2+bx+c=0).'); write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d: =sqr(b)-4*a*c; writeln('вы ввели: '); writeln('a= ',a); writeln('b= ',b); writeln('c= ',c); writeln('d=b*b-4*a*c=',d); if (d> 0) then begin writeln('d> 0 => уравнение имеет 2 действительных различных корня '); writeln('x1= '+sqrt(d))/(2*a)); writeln('x2= '-sqrt(d))/2*a); end else if (d=0) then begin writeln('d=0 => уравнение имеет 2 корня'); writeln('x1=x2=',-b/(2*a)); end else writeln('d< 0 => уравнение не имеет действительных корней'); end.