Паскаль:
Var xa,ya,xb,yb:integer;
AB:real;
begin
read (xa,ya,xb,yb);
AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
Write ('|AB|=',AB:3:1);
end.
1) пассажир Иванов живёт в Москве;
2) проводник живёт на полпути между Москвой и Санкт-Петербургом;
3) пассажир-однофамилец проводника живёт в Санкт-Петербурге;
4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника;
5) у пассажира Петрова трое детей;
6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде
7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге
8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге
9) п3+п8 = У проводника фамилия Петров
10) п6+п9 = машинист не Сидоров. Машинист - Иванов
Ответ: Иванов