Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в шестнадцатеричный код. используйте процедуру. входные данные 255 выходные данные ff

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  число: ЦЕЛ;
  шестн: РЯД 32 ИЗ ЗНАК;
  сч: ЦЕЛ;
  зн: ЗНАК;

ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК;
УКАЗ
  ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра)
  ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН
КОН ШестнЦифра;

УКАЗ
  число := Приём.Число();
  шестн := "";
  Вывод.Цепь("^");

  ПОКА число > 0 ВЫП
    шестн[ДЛИНА(шестн) + 1] = 0X;
    шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16);
    число := число ДЕЛИТЬ 16
  КОН;

  ОТ сч := 0 ДО ДЛИНА(шестн) - 1 ВЫП
    зн := шестн[сч];
    шестн[сч] := шестн[ДЛИНА(шестн) - 1 - сч];
    шестн[ДЛИНА(шестн) - 1 - сч] := зн
  КОН;

  Вывод.Цепь(шестн)

КОН Задание.

Если тупо с паскаля перевести, то можно и без math обойтись ведь

x, y = map(int, input("Введите значения x и y: ").split())

if (x**2+y**2 <= 1) or (x<=0) and (y<=0) and (y>=-x-2):

   print("Точка попадает в область")

else:

   print("Точка не попадает в область")

Если исправлять твой код, то:

def formula():

   print ('Введите значения x и y:')

   x, y = map(int, input().split())

   print('x=',x, 'y=', y)

   if (x**2+y**2 <= 1) or (x<=0) and (y<=0) and (y>=-x-2):

       print(' Точка попадает в область! ')

   else:  

       print(' Точка не попадает в область !')

formula()

program osi;

uses crt;

const

 GREEN = 2;

 BLUE = 1;

 CYAN = 3;

 WHITE = 7;

 MAX_X = 120;

 MAX_Y = 30;

 PI = 3.1415926;

 MX2 = MAX_X div 2;

 MY2 = MAX_Y div 2;

procedure out(x,y: integer; s:char);

begin

 if (x+MX2>-1) and (x+MX2<MAX_X+1) then

   if (MAX_Y-(y+MY2)>0) and (MAX_Y-(y+MY2)<MAX_Y+1) then begin

     gotoxy(x+MX2, MAX_Y-(y+MY2));

     write(s);

   end;

end;

{----------------------------------------------------------------}

{Основная программа}

var

 i, y :integer;

begin

 textcolor(WHITE);

 for var x := -MX2 to MX2 do

   out(x, 0, '-');

 

 for y := -MY2 to MY2 do

   out(0, y, '!');

 out(-1, 14, '/');

 out(1, 14, '\');

 out(60, 0, '>');

{Рисуем прямую y = x}

 textcolor(GREEN);

 for var x:=-MY2 to MY2 do

   out(x, x, '*');

 

{Рисуем график y=x^2}

 textcolor(BLUE);

 for var x := -MY2 to MY2 do begin

   y:=x*x;

   out(x, y, '*');

 end;

 

 

{Рисуем график y=x*sin(30)}

 textcolor(CYAN);

 for var x := -MX2 to MX2 do begin

   y := round(x * sin(PI / 6));

   out(x, y, '*');

 end;

 

 

 

 read(i);

end.

Результат: