begin
var (x,y):=ReadInteger2('x,y=');
Println(-x+y<=0?x*x+y*y <= ReadInteger('R=')**2?'Да':'Нет':'Нет');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018
begin
var (x,y):=ReadInteger2('x,y=');
Println(-x+y<=0?x*x+y*y <= ReadInteger('R=')**2?'Да':'Нет':'Нет');
end.