Перо опустить
1 вправо
1 вниз
3 вправо
1 вниз
1 вправо
2 вниз
2 вправо
1 вниз
1 вправо
1 вниз
3 вправо
Перо поднять
Переливаем так:
1 (3 л.): 0 0 3 3 0 3 0 3 1 1 0 3 0 3 0
2 (8 л.): 0 8 5 0 3 3 6 6 8 0 1 1 4 4 7 <----- PROFIT!
11011 00100 01100 00001 11111
В О Р О Н
ответ ВОРОН
<span><span>Program p_2;
Var
z, a : Real; m : integer;
Function Step (n: integer; x:real): real;
Var
i: integer; y: Real;
Begin
i:=1; y:=1;
While i<=n do
Begin
y:=y*x; I:=I+1;
End;
Step:=y;
End;</span><span> {Конец функции}</span><span>
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(m,z);
Writeln(z, ‘ в степени’, m, ‘=’,f);
End.</span>
</span>