Так как просто прямая не возможна, то
проверить есть ли преграда по прямой с права (подъем)
если нет, то спуститься вниз со смещением в право, рассчитав новое положение.
закрасить клетку с предыдущими координатами
если препятствие есть, то выполнить подъем со смещением в право, рассчитав новое положение
закрасить клетку с предыдущими координатами.
Pascal:
function power(a: integer; n: integer): integer;
begin
if n = 0 then
power := 1
else if n mod 2 = 0 then
power := sqr(power(a, n div 2))
else
power := power(a, n - 1) * a;
end;
var
a: array[0 .. 4] of integer;
x, i, res: integer;
begin
res := 0;
for i := 4 downto 0 do
read(a[i]);
readln(x);
for i := 4 downto 0 do
inc(res, a[i] * power(x, i));
writeln(res)
end.
Прежде всего, код надо отформатировать и исправить имеющиеся в нем ошибки. А затем приступать к его рассмотрению.
var
a, b: integer;
procedure proc(var a: integer; b: integer);
begin
b := 4; a := 6; b := a + b
end;
begin
a := 2; b := 3;
proc(a, b);
Writeln(a, ' ', b)
end.
Описаны две целочисленные переменные a и b. Им присваиваются значения 2 и 3 соответственно. Затем следует вызов процедуры proc, в которую эти переменные передаются в качестве параметров.
На входе в proc получаем a=2, b=3. Далее b получает значение 4, а получает значение 6 и затем b получает значение суммы a+b, т.е. 4+6=10. На этом работа процедуры завершается. Поскольку параметр процедуры a имеет описатель var, то в основную программу вернется значение, которое a имело внутри процедуры (т.е. 6). Значение b=10 действует только внутри процедуры и в основную программу не вернется.
Следовательно, в основной программа значение а поменяется на 6, а значение b сохранится прежним (3).
В результате на выходе будет строка:
6 3
Dim i As Integer
Dim x As Integer
Dim Summ As Integer
i = InputBox("Введите целочисленное положительное число")
Summ = 1
For x = 0 To Len(CStr(i)) - 1
Summ *= CInt(Mid(CStr(i), x + 1, 1))<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
</span><span>Next
MsgBox(Summ)
</span>
224
Полный адрес маски: 255.255.224.0