Еще одну =( program pasha; const pi=3.14; var n: integer; z: real; r,d,l,s: real; begin writeln('введите номер элемента n='); readln(n); writeln('введите значение элемента z='); readln(z); case n of 1: begin r: =z; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 2: begin r: =z/2; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 3: begin r: =z/(2*pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 4: begin r: =sqrt(z/pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r: 2: 0); writeln('диаметр d=',d: 2: 0); writeln('длина l=',l: 2: 2); writeln('площадь круга s=',s: 2: 2); end; else writeln('ошибка'); end;

Const   p = 3.14;   //число "пи" var   n:   byte;   r, d, l, s:   real; begin   {сообщаем кратко данные : }   writeln(' пусть в окружности: ');   writeln(' 1)r - радиус; ');   writeln(' 2)d - диаметр; ');   writeln(' 3)l - длина; ');   writeln(' 4)s - площадь круга.');   writeln;   writeln(' введите номер одной из величин (от 1 до 4): ');   write('  n = ');   readln(n);   //вводим номер величины.   {здесь используем цикл. запрашивается ввод до тех пор, пока   номер n не будет лежать в диапазоне [1, 4]: }     while   (n < 1)or(n > 4)   do//условие вхождения в цикл.       begin         writeln(' такого номера здесь нет! ');         writeln(' введите другой номер (от 1 до 4): ');         write('  n = ');         readln(n)  //снова вводим номер.       end;   writeln;   {сообщаем о том, какую величину мы ввели,   а потом запрашиваем ввести её значение: }   write(' это ' );       case   n  of       1:   begin                 writeln('радиус окружности. введите его значение: ');                 write('  r = ');                 readln(r)                end;       2:   begin                 writeln('диаметр. введите его значение: ');                 write('  d = ');                 readln(d)                end;       3:   begin                 writeln('длина окружности. введите её значение: ');                 write('  l = ');                 readln(l)                end;       4:   begin                 writeln('площадь круга. введите её значение: ');                 write('  s = ');                 readln(s)                end                    end ;     writeln(' тогда для остальных величин будем иметь: ');   writeln;   {используя соотношения d = 2*r, l = 2*p*r, s = p*sqr(r),    выразим последовательно  три  величины через четвертую: }     case   n  of       1:   begin{здесь дано r. находим d, l и s: }                 writeln(' диметр: d = ', 2 * r);                 writeln(' длина: l = ', 2 * p * r);                 writeln(' площадь: s = ' , p * sqr(r))                end;       2:   begin{здесь дано d. находим r, l и s: }                 writeln(' радиус: r = ', d / 2);                 writeln(' длина: l = ', p * d);                 writeln(' площадь: s = ', p * sqr(d / 2))               end;       3:   begin{здесь дано l. находим r, d и s: }                 writeln(' радиус: r = ', l / p / 2);                 writeln(' диаметр: d = ', l / p);                 writeln(' площадь: s = ' , sqr(l) / p / 4 )                end;       4:   begin{здесь дано s. находим r, d и l: }                 writeln(' радиус: r = ', sqrt(s / p): 7: 4);                 writeln(' диаметр: d = ', 2 * sqrt(s / p): 7: 4);                 writeln(' длина: l = ', 2 * sqrt(p * s): 7: 4)               end                  end  end .

#include < iostream >

using namespace std;

signed main(){

double n, exp = 1e-05;

cin >> n;

if(n >= - exp && n <= 10 + exp){

cout << "YES";

}

else{

cout << "NO";

}

}