5. Исполнитель КУЗНЕЧИК живёт на числовой оси. Начальное положение КУЗНЕЧИКА – точка 0. Система команд Кузнечика: Вперед 7 – Кузнечик прыгает вперёд на 7 единиц,
Назад 3 – Кузнечик прыгает назад на 3 единицы.
Какое наименьшее количество раз должна встретиться в программе команда «Назад 3», чтобы Кузнечик оказался в точке 29?

   Если у меня был робот, он бы не был похож ни на один из существующих. Он был бы небольшим, юрким, быстро передвигающимся. Его главной задачей было бы организовывать пространство вокруг меня.

   Мой робот не только мог бы меня развлекать. Он точно должен нести тяжёлые сумки, предупредить о препятствиях на дороге, заранее узнавать прогноз погоды и предлагать наиболее подходящую одежду и обувь. Было бы неплохо научить робота готовить: бывает, приходишь домой, а там - пустота, шаром покати. С роботом такого не произошло бы: он заранее заказал бы всё необходимое и приготовил бы еду ещё до моего прихода на кухню.

   Но и о развлечениях забывать не стоит. Такой робот легко мог бы стать мультимедийным, составлять и проигрывать плейлисты с тщательно подобранной музыкой, быть переносным кинотеатром, при случае рассказывать истории и анекдоты. Он должен внимательно слушать, быть отличным собеседником. Его можно будет использовать и для игр в виртуальной реальности, причём без необходимости носить специальные при и манипуляторы.

   Кроме того, робот должен быть умным. В свободное время он мог бы подключаться к сети и участвовать в системе распределённых вычислений. Такие системы используют, чтобы решать сложные задачи: обработка результатов Большого адронного коллайдера, расшифровка человеческой ДНК и поиск генных причин возникновения опухолей, даже поиск инопланетного разума. Было бы круто, если бы мой найти лекарство от рака!

   Несмотря на все преимущества, описанные выше, мне не очень нужен такой робот. Многое из перечисленного - моя сегодняшняя жизнь. Конечно, на первый взгляд кажется, что если появится робот, забирающий все рутинные занятия, жизнь станет краше. Однако после выкидывания из жизни таких мелочей оказывается, что жизнь становится пуста и бессмысленна. Я боюсь, что уже через несколько десятков лет роботы и другие машины заменят человека, упростят его культуру. Этого нельзя допустить ни в коем случае.

var i: integer; begin // С С С Вывод последовательности 1 3 5 7 9var i,x: integer; begin // С и промежуточной переменной x := 1; for i := 1 to 5 do begin write(x,' '); x := x + 2; end; writeln;   // С без промежуточной переменной for i := 1 to 5 do write(2*i-1,' '); writeln;   // С С Сумма и произведение введенных чиселКод на Pascalvar i: integer; s,p: real; x: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for i := 1 to 10 do begin read(x); s := s + x; p := p * x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Код на PascalABC.NETvar s,p: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for var i := 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Вычисление n!Код на Pascalvar n,fact: integer; i: integer; begin write('Введите n (n<=13): '); readln(n); fact := 1; for i := 2 to n do fact := fact * i; writeln(n,'! = ',fact); end.Код на PascalABC.NETvar n: integer; begin write('Введите n (n<=13): '); readln(n); var fact := 1; for var i := 2 to n do fact *= i; writeln(n,'! = ',fact); end.Вычисление AnКод на Pascalvar n,i: integer; a,p: real; begin write('Введите a,n: '); readln(a,n); p := 1; for i := 1 to n do p := p * a; writeln(a,' в степени ',n,' = ',p); end.Код на PascalABC.NETvar n: integer; a: real; begin write('Введите a,n: '); readln(a,n); var p := 1.0; for var i := 1 to n do p *= a; writelnFormat('{0} в степени {1} = {2}',a,n,p); end.