Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
прямая
черточка такая, почему так называется - не понятно, а вопрос очень баянистый
на том же месте)))
возьмите листок бумаги и просто рисуйте линию и поварачивайте на 90 градусов) ну вобщем квадрат как таковой выйдет)))
var
a, i, NegativeSum, EvenCount : integer;
begin
EvenCount := 0;
NegativeSum := 0;
for i := 1 to 10 do
begin
read (a);
if not Odd(a) then
inc(EvenCount);
if (a < 0) then
NegativeSum := NegativeSum + a;
end;
Write(EvenCount - NegativeSum)
end.