Вычисления. Сравнение площадей
Добавлено: 26 апр 2009, 10:00
60. Что больше: площадь равностороннего треугольника со стороной 1.65 или площадь круга радиусом 0.8.
Код: Выделить всё
uses crt;
var r,ab:real;
begin clrscr;
write('Vvedi storonu triugolnika: '); readln(ab);
write('Vvedi ranius kruga: '); readln(r);
if (pi*r*r)>(ab*ab*sin(60)*0.5) then
writeln('Krug bolshe!')
if (pi*r*r)<(ab*ab*sin(60)*0.5) then
writeln('Triugolnik bolshe!');
if (pi*r*r)=(ab*ab*sin(60)*0.5) then
writeln('Ploshadi ravni!');
readkey;
end.