Предмет: Информатика,
автор: miniwasr200222
Написать программу на языке паскаль !!!!
Приложения:

Ответы
Автор ответа:
0
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.
Приложения:

fsdfsd1974:
Немного не правильно
Похожие вопросы
Предмет: Физика,
автор: пумпурка
Предмет: Русский язык,
автор: alyak00
Предмет: Алгебра,
автор: alina19977
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: ЧеловекЧеловекович0