===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию
Помучился но все таки выполнил данное задание
Вообще-то это геометрия, класс 7й где-то.
С помощью чертежа можно выяснить, что углы в 45 градусов