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

PeaceDuck1337 PeaceDuck1337    3   26.06.2019 14:10    1

Ответы
stenolaz19 stenolaz19  02.10.2020 12:16
Uses Crt;
var alpha, beta , gamma, Sum :real;

begin
ClrScr;
Sum:=0;
repeat
WriteLn(' Ведите углы треугольника (в градусах): ');
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;
за работу!');
 ReadLn;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика