Напишите программу или помогите решить задачу
возможно ли из квадрата со стороной а вырезать круг радиусом r, если возможно то какая часть S площади квадрата пойдет при этом в "обрезки".
uses crt;
var s1, s2, a, r, result real
begin
writeln ("enter a");
readln(a);
writeln("enter r");
readln(r);
S1=a*a
S2=3,14*sqr(r);
if 2*a>r then
Result = S2-S1;
else
Result=S1-S2;
writeln ("result is ", result);
end.
Если сторона квадрата больше или равна 2-ум радиусам, то можно. Посчитай площадь квадрата и вычти из него площадь круга. Это обрезки. Программу, я думаю, сама сможешь написать. Удачи!
a=2*r
s1=a*a
S2=3.14* r*r
S искомое =s-S
var s1, s2, a, r, result real
begin
writeln ("enter a");
readln(a);
writeln("enter r");
readln(r);
S1=a*a
S2=3,14*r*r
Result=S2-S1
writeln ("result is "), result
Стучи в агент.
на каком языке?
