Дан алгоритм для Робота:

алг
нач
нц 6 раз
вправо; закрасить
кц
кон
1.Если левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 6 клеток влево и закрасит эти клетки.
2.Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на n клеток вправо и закрасит эти клетки.
3.Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 6 клеток вправо.
4. Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 6 клеток вправо и закрасит эти клетки.

а после 18 какое число идет? ? если 108 ,то тогда получается так 2*3=6, 3*6=18, 6*18=108,получается что первое число умножается на второе,второе на третье,третье на четверное и т.д

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

крестьянин   должен   переправить   волка   и   капусту с   собой.а   козу   надо   кинуть

  на   другой   берег.