Помогите сделать 7 вариант !!!! 1 и 3

Помогите сделать 7 вариант !!!! 1 и 3
Гость
Ответ(ы) на вопрос:
Гость
1) var r,x,y : real; begin write('r = '); readln(r); write('x = '); readln(x); write('y = '); readln(y); if (x*x+y*y<=r*r)and(x>=0)   then writeln('Да')   else writeln('Нет') end. Пример: r = 2 x = -1.5 y = 0.5 Нет 3) var a,b,c : real; begin writeln('a='); readln(a); writeln('b='); readln(b); writeln('c='); readln(c); if (a+b>c) and (a+c>b) and (b+c>a)  then writeln('YES')  else writeln('NO'); end. Пример: a= 3 b= 4 c= 5 YES
Не нашли ответ?
Ответить на вопрос
Похожие вопросы