Напишите для кузнечика программы с которых он соберет следующие слова: тигр, лента, информация

слово: тигр

начальное положение: 0

программа: +1! -1! +5! +4!

 

слово: лента

начальное положени: 1

программа: +1! +4! -3! -2! +3!

 

слово: информация

начальное положени: 2

программа: -2! +3! +10! -2! -2! +5! -10! +11! -15! +16!

Var       n, s, i: integer;       s1: real; begin       readln(n); {общий ввод для всех }             if n < 0 then               writeln(' 1. n=', 0)       else writeln(' 1. n=', n + 4);             s : = 0;       for i : = 1 to n do               s : = s + i;       writeln(' 7. 1+2+3+…+n=', s);             write(' 9. последовательность от n до 1 = ');       for i : = n downto 1 do               write(i, ' ');       writeln();             s1 : = 0;       for i : = 1 to n do               s1 : = s1 + i / 10;       writeln(' 12. 0,1+0,2+0,3+..+n/10=', s1);             write(' 13. последовательность квадратов от 1 до n = ');       for i : = 1 to n do               write(i * i, ' ');       writeln();             write(' 14. последовательность первых n нечетных чисел = ');       for i : = 1 to n do               write(2 * i - 1, ' ');       writeln();             if n > 0 then               writeln(' 20. n степень 3 = ', frac(ln(n) / ln(3)) = 0);             s : = 0;       for i : = 1 to n do               if n mod i = 0 then                       s : = s + i;       writeln(' 24. сумма всех натуральных делителей числа n (сключая 1 и n) = ', s); end.

uses crt; vara: array[1..7,1..10] of integer; b,i,j: integer; beginclrscr; randomize();

//заполнение массива случайными числами

for i: =1 to 7 dofor j: =1 to 10 dobegina[i,j]: =random(10); end;

//вывод массива

for i: =1 to 7 dobeginfor j: =1 to 10 dowrite(a[i,j]: 3,' '); writeln(); writeln(); end;

//удаляем строку 6 и меняем 5 и 2 строки местами

for j: =1 to 10 dobegina[6,j]: =a[7,j]; a[7,j]: =0; b: =a[5,j]; a[5,j]: =a[2,j]; a[2,j]: =b; end; writeln('отредактированный массив'); //выводим отредактированный массивfor i: =1 to 6 dobeginfor j: =1 to 10 dowrite(a[i,j]: 3,' '); writeln(); writeln(); end; readln(); end.