Всего и делов 11 рейсов
Едут два разбойника (3к3р-2р)
Возвращается 1 разбойник (3к2р-1р)
Едут два разбойника (3к-3р)
//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>
Каждый символ в этой кодировке имеет инф.вес =8 бит =1 байт
Символов сего под запись 16, следовательно 16*1 байт =16 байт
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)