• Записать в Паскаль программу которая должна запрашивать у пользователя значения углов треугольника и определять, может ли он существовать. Если треугольник с такими углами не существует, программа должна предложить пользователю ввести новые значения. Если треугольник с введенными значениями углов существует, программа должна вывести на экран сообщение об этом и завершить работу
    Пожалуйста, помогите!

Ответы 1

  • uses Crt;var alpha, beta , gamma, Sum :real;beginClrScr;Sum:=0;repeatWriteLn(' Ведите углы треугольника (в градусах): ');Write (' alpha = '); ReadLn(alpha);Write (' beta = '); ReadLn(beta);Write (' gamma = '); ReadLn(gamma);Sum:=alpha+beta+gamma;If (Sum=180) then WriteLn (' Существует! ')                            else                            Writeln (' Не существует... '); WriteLn; until  Sum=180; WriteLn(' Спасибо за работу!'); ReadLn;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years