Question

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

Answer 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.

 

Делал уже эту программу пару часов назад.