Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.