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