Цыклы

@Zimbaba · Регистрация: 20.10.2008

Задачка элементарная...но чо то у меня не получаетсо ее решить...plz help!

@MadMag · 07.12.2008, 22:57

Не знаю каким боком тут циклы, но очевидно(не знаю точно =))
Решается так:

Код

var x,y:real;
     p:boolean;

begin
 read(x,y);
 p:=false;
 if (sqr(x)+sqr(y)-sqr(2)<=0) and ((y<=-1) or(y>=1)) then p:=true;
end.

Очевидно, как-то так!

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	07.12.2008, 22:57	2
	Не знаю каким боком тут циклы, но очевидно(не знаю точно =)) Решается так: Код var x,y:real; p:boolean; begin read(x,y); p:=false; if (sqr(x)+sqr(y)-sqr(2)<=0) and ((y<=-1) or(y>=1)) then p:=true; end. Очевидно, как-то так! 0