Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите пожалуйста
ввожу прогу на 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 ]
  • Страница 1 из 1
  • 1
Поиск: