
Pascal
- 1 ответ
- 0 вопросов
1
Вклад в тег
procedure proc (real: x,y);
begin
if (x < 1) and (x > 0) then
if y > -1 and y < 0 then
writeln('true');
else writeln('false');
else if sqrt(x*x + y*y) < 1 then
if (x < 0) and (x > -1) then
if (y > 0) and (y < -1) then
writeln('true');
else writeln('false');
else writeln('false');
else writeln('false');
end;