Р1,Р2,Р3 - разбойники
К1,К2,К3 - купцы
дальше идут только действия
1) туда Р1 и Р2
2) обратно Р1
3) туда Р1 и К1
4) обратно Р1
5) туда Р1 и Р3
6) обратно К1
7) туда К1 и К2
8) обратно Р1
9) туда Р1 и К3
Var a,V,S:integer;
Begin
writeln('Enter A:');
readln(a);
V:=a*3;
S:=6*2*a;
writeln('V=',V,'; S=',S,';');
end.
var a,b,sum,dob,raz:integer;
Begin
writeln('Enter A:');
readln(a);
writeln('Enter B:');
readln(b);
sum:=abs(a)+abs(b);
raz:=abs(a)-abs(b);
dob:=abs(a)*abs(b);
writeln('Summa=',sum,'; Raznost=',raz,'; Dobutok=',dob,';');
<span>end.</span>
Дано:
Мулььи N=16;120
Пульти N=32;96
Найти i
Решение. N=2i
1)16=2i, i=4(бит) на 1 символ в племени Мульти
2) 32=2i=i=5(бит) на 1 символов в племени Пульти
3) 120*4=480(бит) сообщение племени Мульти
4)96*5=480(бит) сообщение племени Пульти
Ответ: они равны)
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln(Range(-200,150).Sum)
end.
<u><em>Результат выполнения программы:</em></u>
-8775
jefidgha
На каждом шаге выбираем ближайшую букву, когда берём последнюю букву a, ни на горизонтали, ни на вертикали букв не остаётся.