Дано натуральное число n. переставить первую и последнюю цифру числа n. пример: n: =123456 s=623451

Var k: integer; s,j: string; begin write ('введите число: '); read (s); k: =length(s); str(s,j); writeln ('результат:   ',j[k],copy(s,2,k-2),j[1]); end.

Воснову решения возьму тот факт, что точка лежит внутри треугольника только в том случае, если сумма площадей трех образованных этой точкой и вершинами треугольников треугольников равна площади самого треугольника. для нахождения площади треугольников использую формулу векторного произведения, деленного пополам. #include < stdio.h> #include < stdlib.h> using namespace std; int main() {     int x1, y1, x2, y2, x3, y3, x0, y0;     scanf("%d%d%d%d%d%d%d%d", & x1, & y1, & x2, & y2, & x3, & y3, & x0, & y0);     if (abs((x1 - x0) * (y2 - y0) - (x2 - x0) * (y1 - y0)) +         abs((x1 - x3) * (y0 - y3) - (x0 - x3) * (y1 - y3)) +         abs((x0 - x3) * (y2 - y3) - (x2 - x3) * (y0 - y3)) ==         abs((x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 -     {       printf("yes");   } else {     printf("no");   }     return 0; }

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 function maxdigit(n: integer): integer; begin   result: =0;   while n> 0 do begin       var m: =n mod 10;       if m> result then result: =m;       n: =n div 10       end end; begin   var n1,n2: integer;   write('введите через пробел два натуральных числа: ');   read(n1,n2);   writeln('s=',maxdigit(n1)+maxdigit(n2)) end. тестовое решение введите через пробел два натуральных числа: 53252 4654083 s=13