Предмет: Информатика, автор: miniwasr200222

Написать программу на языке паскаль !!!!

Приложения:

Ответы

Автор ответа: fsdfsd1974
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: Немного не правильно
fsdfsd1974: Доделаю
fsdfsd1974: Все. теперь правильно работает
Похожие вопросы
Предмет: Алгебра, автор: alina19977
Предмет: Математика, автор: ЧеловекЧеловекович0