надо к 21:00 сдать учителю

№1) у нас дан алгоритм, 1 = прибавь 2, а 2 = умножить на b

из 6 у нас получилось 164 с алгоритмом 11211

попробуем сократить: пройдем первую половину и получим 6 + 2 + 2 = 10, вторую половину 164 - 2 - 2 = 160 (т.к. мы идем назад). Видим, что из 10 должно получиться 160. Значит b = 160 / 10 = 16

№2) нам дан алгоритм, который считывает 2 числа и проверяет их на то меньше ли они 10. Значит просто подставляем значения (думаю это будет не сложно) и проверяем - если хотя бы одно число меньше 10, то выводим YES :

1) YES 2) YES 3) YES 4) YES 5) NO (т.к. 10 не меньше 10 и 11 не меньше 10)

6) YES 7) YES 8) YES 9) YES

считаем YES, их 8 штук. Значит 8

№3) тут у нас КуМир, алгоритм будет такой:

использовать Робот

алг

нач

нц пока справа свободно  

закрасить

вправо

кц

закрасить

нц пока снизу свободно

вниз

кц

нц пока слева свободно

закрасить  

влево

кц

закрасить

кон

№4) как обычно алгоритм, сначала задаём переменной а значение 6, и b значение 2. Теперь b = 6 / 2 * 2 = 6. Теперь а = 2 * 6 + 3 * 2 = 12 + 6 =  18. ответ = 18

№5) алгоритм. s = 5. к s мы прибавляем 1, 2 и 3. значит s = 5 + 3 + 2 + 1 = 5 + 6 = 11. ответ 1

№6) тут надо просто подумать. квадрат делает из отрицательного числа - положительное. 19 из квадрата не получить. значит мы должны получить бОльшее значение и из него вычитать. Найдем ближайший квадрат. Им является 25. От 19 до 25 - 6 ячеек. Значит нам это подходит. Из 1 мы вычитаем 2 раза по 3. 1 - 3 - 3 = 1 - 6 = -5. -5 мы возводим в квадрат. -5² = 25. Нам как раз подходит! Значит вычитаем еще 2 раза по 3. 25 - 3 - 3 = 25 - 6 = 19! За 5 ходов - как сказано в задаче! Значит алгоритм будет 22122.

№7) тут у нас алгоритм, пройдемся по нему:

проверим слово БРА - кол-во букв нечетное, значит первую буквы мы убираем, получается РА. Теперь мы заменяешь каждую буквы на следующую буквы в алфавите. т.е. Р на С и А на Б - получаем СБ. Проверяем второй раз (как в условии) - кол-во букв четное, значит добавляем А в середину, т.е. получаем САБ. теперь замена букв. С на Т, А на Б и Б на В - получаем ТБВ.

Надеюсь почитай, что я понаписал, может станешь лучше понимать и делать это самостоятельно!

<3

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.

//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array of integer;
 n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
 writeln('Введите размерность:');
 readln(n);
 setlength(ar,n);
 writeln('Array:');
  for i:=0 to n-1 do
   begin
    ar[i]:=random(-30,30);
    write(ar[i]:4);
    if min>=ar[i] then
     begin
      min:=ar[i];
      mini:=i;
     end;
   end;
  for i:=0 to mini-1 do
   if ar[i]<0 then ar[i]:=0;
 writeln;
 writeln('Final array:');
  for i:=0 to n-1 do
   write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
  -3 -26  -2  18 -21
Final array:
   0 -26  -2  18 -21