1. Если цвет второй нужной клетки такой же - то через 2, если цвет другой - то 3.
А) 0,004110* 10^2=0,004110* 100=0,411<span>
б) -16,7810* 10^-3=</span><span>-0,0167810</span>
Если препятствий нет, то
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
нц пока сверху свободно
вверх
кц
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока слева свободно
влево
закрасить
кц
кон<span>
</span>
Решение приведено в файле приложенном ниже!!!!программа тестировалась и работает
//PascalABC.Net 3.0, сборка 1053
var
n: longint;
d, n1, n2: integer;
begin
n1 := 0; n2 := 0;
Write('Введите натуральное число: ');Read(n);
repeat
d := n mod 10;
if odd(d) then Inc(n1) else Inc(n2);
n := n div 10
until n = 0;
Write('Нечетных ', n1, ', четных ', n2)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 3534052
Нечетных 4, четных 3