Ответы
Ответ дал:
1
program v1;
var n:integer;
begin
writeln('Введите градус угла: '); readln(n);
if (n<90) and (n>0) then writeln('Острый угол');
if n=90 then writeln('Прямой угол');
if (n>90) and (n<180) then writeln('Тупой угол');
if n=180 then writeln('Развернутый угол');
if (n>180) and (n<360) then writeln('Выпуклый угол');
if n=360 then writeln('Полный угол');
if (n<0) or (n>360) then writeln('Введите градус угла в диапозоне с 0 до 360');
end.
Делал уже эту программу пару часов назад.
Приложения:
![](https://st.uroker.com/files/61d/61de9f29adc3e940659a2082239fe739.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
Uses Crt;
var a:integer;
begin
Clrscr;
writeln('Введите градус угла: '); readln(A);
if a<90 then writeln('Угол равный ',a, ' градусам является Острым углом');
if a=90 then writeln('Угол равный ',a, ' градусам является Прямым углом');
if (a>90) and (a<180) then writeln('Угол равный ',a, ' градусам является Тупым углом');
if (a<0) and (a>360) then writeln('Введите градус угла в диапозоне с 0 до 360');
end.