Question

Дан круг радиуса R. Определить, поместиться ли правильный треугольник со сторонами а в этом круге. Для программы Pascal.

Answer 1

Program Pr1;
uses crt;
var r:integer;
b,a:real;
Begin
clrscr;
writeln('Введите R и a');
readln(r,a);
b:=sqrt(a-(a/2));
if (b<r) and (a/2<r) then writeln('Поместится')
else writeln('Не поместится');
end.