Предмет: Информатика,
автор: IrishkaIrishka
Дан круг радиуса R. Определить, поместиться ли правильный треугольник со сторонами а в этом круге. Для программы Pascal.
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Литература,
автор: verapanina1232
Предмет: Алгебра,
автор: lizakoroleva07
Предмет: Биология,
автор: Аноним
Предмет: Геометрия,
автор: NastuchaNucha
Предмет: Литература,
автор: tusea96