Question

1.Напишите программу , которая определяет по введенной градусной мере развернутый угол или нет. 2.Для данного x вычислить: если x>5, то возвести число в квадрат; если x<5, то возвести в куб. ДЛЯ ПАСКАЛЯ!!!

Answer 1

Program programma1;
Uses crt;

var a: real;

begin
clrscr;
       write('Градусная мера угла a = ');
       readln(a);
if a>=0 then
   begin
   if a<>180 then writeln ('Угол не является развернутым')
   else  writeln ('Угол является развернутым');
   end
   else
   writeln('Угол не может быть отрицательным');
end.



Program programma2;
Uses crt;

var x: real;

begin
clrscr;
       write('x = ');
       readln(x);

   if X>5 then x:=x*x;
   if X<5 then x:=x*x*x;

   writeln('Ответ: ',x);
end.