Составить алгоритм исполнителя x=x-1/2y, y=2x+y, x=x+y, y+x.условие x больше y x=2 y=3 вычислить значение и составить блок схему.

Var   a: array[1..10, 1..10] of integer;   i, j, k: integer; begin   k : = 1;   for i : = 1 to 10 do    begin     for j : = 1 to 10 do      begin       if(j > = i) then begin         a[i, j] : = k;         k += 1;       end       else a[i, j] : = 0;       write(a[i, j]: 3);     end;     k : = 1;     writeln();   end; end.

Пусть a,b,c - стороны треугольника (и их длины). условие существование треугольника: пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов: текст программы приводится ниже. var   a,b,c,t,cosa: real; begin   write('введите длины сторон треугольника: '); readln(a,b,c);   if (a< b+c) and (b< a+c) and (c< a+b) then   begin       if a> b then       begin               if a< c then begin t: =a; a: =c; c: =t end       end       else           if b> c then begin t: =a; a: =b; b: =t end           else begin t: =a; a: =c; c: =t end;       cosa: =(sqr(c)+sqr(b)-sqr(a))/(2*b*c);       if cosa=0 then writeln('треугольник прямоугольный')       else           if cosa< 0 then writeln('треугольник тупоугольный')           else writeln('треугольник остроугольный')   end   else       writeln('треугольник построить нельзя') end. тестовое решение: введите длины сторон треугольника: 4 6.1 3.7 треугольник тупоугольный