ввожу прогу на ABS NET ,программа выполняется ,но когда ввожу значения ,то выдает ошибку ((
program v;
var x,y,r1,r2:real;
begin
write('x,y,r1,r2=');
readln(x,y,r1,r2);
if((x*x+sqr(y)<=sqr(r1))and(x>=0)and(sqr(x-r1)+sqr(y)>=sqr(r2)))or((sqr(x)+sqr(y)>sqr(r1))and(sqr(x-r1)+sqr(y)<=sqr(r2)))
then write('принадлежит')
else write('непринадлежит')
end.
№ 1 | Автор: metla-01 |
2014-12-08, 20:24 | Изменено: metla-01 - Пн, 2014-12-08, 20:24
|
Репутация: [ + 0 ]
|
|
|
|
