Р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
avast!
Dr.Web 360 Total Security Kaspersky
Panda Free Antivirus
Norton Internet Security
ESET NOD32 Smart Security
F—Secure Internet Security
Bitdefender Internet Security
AVG Internet Security
Begin
var ar := arrrandom(30, 1, 20);
ar.Println;
writeln(ar.Where(x -> x mod 2 = 0).Sum);
var a := readinteger;
write(ar.Where(x -> x > a).Count);
end.
Вот на Pascal:
uses graphabc;
var a,b,c:longint;
begin
write('Введите a,b и c треугольника');
readln(a,b,c);
write('Периметр - ',a+b+c);
write('Площадь - ',a*b*c);
write('Code by Grisha Sheldunov');
end.
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П