vlad/code_olymp
1
0
Fork 0
Code Pull Requests Releases Activity

Дамп всех задач

Browse Source
This commit is contained in:
Vlad Utkin
2017-05-22 13:29:43 +03:00
parent b970626fef
commit 93746b05d7
173 changed files with 2505 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Pascal/10.10.16/Program5.pas Normal file
View File

@@ -0,0 +1,9 @@
var
x,y:real;
begin
Read(x,y);
if (y<=1) and (x>=0) and (y>=-1) and ((y>=x-1) or (1<=Sqr(x)+Sqr(y))) then
print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
Print('<27><><EFBFBD>')
end.