===== PascalABC.NET =====
begin
var F: real-> real := n -> Sqrt(n) + n;
F(ReadReal('n =')).Println
end.
Григорий-строитель,Алексей-водитель,Вениаин-программист,Борис-аптекарь
2 у одной 2 у другой и у другой 2 а у последней зеркало
Два решения.
1. Токарев - плотник, Плотников - слесарь, Слесарев - токарь.
2. Токарев - слесарь, Плотников - токарь, Слеварев - плотник.