Задачка с треугольником, Треугольник вписан в окружность Опции

[Liana K.]

Здравствуйте.
Равносторнний треуг. со стороной n вписан в окружность диаметром d. Написать программку в паскале в кот. анализировались бы исходные данные (вводимые пользователем n и d) на выполнения условия (о том что треуг. вприсан в окр.)
Спасибки)

[Liana K.]

Вот, попробывала сделать, кажется правильно

PROGRAM circletriangle;
VAR R,A,R2: REAL;

BEGIN
WRITELN ('Проверка условия на вписанность');
REPEAT
   WRITE ('Строна треугольника A = ');
   READLN (A);
   WRITE ('Радиус окружности R = ');
   READLN ®;

 BEGIN
  R2:=A*((SQR(3))/3);
  IF R=R2 THEN
  BEGIN
  WRITELN ('Треугольник не вписан');
  END
  ELSE
  WRITELN ('Треугольник не вписан');
END;
ReadLn;
end.

Сообщение отредактировано: Liana K. - 15.12.2009 1:50