Программирование,задача. Вводится значение r. Найдите Sкв,описанного около окружности,если r>10, в противном случае вычислите Sкв,вписанного в эту окружность.
VarR,s:real;BeginReadln(R);S:=0;If R>10 thens:=4*R*R else s:=2*R*R;Writeln(s);End.
Оцени ответ
