Задан периметр квадрата. составьте программу, с которой определите радиус вписанной и описанной окружности.

#include < iostream> using std: : cout; using std: : cin; using std: : endl; #include < cmath> using std: : pow; using std: : sqrt; double vpisannayaokryzhnost(double); double opisannayaokryzhnost(double); int main(){    double perimeter;     cout < < "vvedite perimeter: ";     cin > > perimeter;     cout < < "r vpisannoi okruzhnosti = " < < vpisannayaokryzhnost(perimeter) < < endl;     cout < < "r opisannoi okruzhnosti = " < < opisannayaokryzhnost(perimeter) < < endl;     cin.get();     return 0; }double vpisannayaokryzhnost(double perimeter){    double a = perimeter / 4;     return (a / 2); }double opisannayaokryzhnost(double perimeter){    double a = perimeter / 4;     return (sqrt(2) / 2 * a); }

на гэ-паскале можно написать так:

program math; var perimeter, a: real; begin  write('vvedite perimeter: ');   read(perimeter);   a : = perimeter / 4;   writeln('r vpisannoi okruzhnosti = ', a / 2: 0: 2);   writeln('r opisannoi okruzhnosti = ', sqrt(2) / 2 * a: 0: 2);   readln();   readln(); end.

varn,a,b,c: integer; begin write('введите n: ='); readln(n); if (n< 1000) and (n> 99) then begin a: = (n div 100); b: = ((n mod 100) div 10); c: = (n mod 10); if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then write('верно') else write('не верно'); end; end.