. Решить методом Крамера. Сумма трёх углов треугольников равна 180°. Если второй угол увеличить вдвое, первый увеличить на 5° и от суммы этих двух углов отнять 3, то получится 10°. Если от третьего угла отнять удвоенную сумму первого и второго углов, а к результату прибавить 55°, то получится величина первого угла. Определить вид треугольника. Заранее огромное .

Преобразуем первое уравнение.
х/12+у/5=8
Общий знаменатель 60, дополнительные множители 5 и 12.
5х+12у=8*60
5х+12у=480 (1)-так выглядит первое уравнение после преобразований.
Второе уравнение тоже преобразуем.
х/4-у/7=-2, общий знаменатель 28, Дополнительные множители 7 и 4.
7х-4у=-2*28
7х-4у=-56 (2)-так выглядит второе уравнение после преобразований. Система.
{5х +12у =480
{7х -4у =-56 ! *3 -умножаем второе на 3, а первое просто переписываем.

{5х +12у =480
{21х-12у =-168

{5х +12у -480=0
{21х-12у +168=0
Складываем оба уравнения.
(5х+12у-480)+(21х-12у+168)=0
5х+21х=480_168
26х=312
х=312:26
х=12
Из (2) -4у=-56-7*12
-4у=-140 ! умнож. на (-1)
4у=140
у=140:4
у=35

   Задача 1
Алгоритм выглядит таким образом:
ввести x, y;
если x>y то
 s:=(x*y)*2;
иначе
 s:=(x+y)/2;
вывод s
конец. (блок-схема прилагается в скриншоте 1)

На паскале выглядит примерно так:
var
 x, y, s:real;
begin
readln(x,y);
if x>y then
s:=(x*y)*2;
else
s:=(x+y)/2;

writeln(s:2:2);
end.

ответ на 2 задачу
Тут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)

ответ на 3 задачу
Тут тоже.. в условии указываешь просто a<b<c, если условие верно, то выводишь "Верно", иначе "Не верно".

На паскале выглядит примерно так:

var
 a, b, c:integer; {если число вещественное}
begin
readln(a, b, c); 
if (a<b<c) then
writeln("Верно");
else
writeln("Неверно");
end.

ответ на 4 задачу
На паскале:
var
 a, b, c, max:integer;
begin
max:=0;
readln(a,b,c);
if max<a then
max:=a;
if max<b then
max:=b;
if max<c then
max:=c;

writeln(max);
end.

ответ на 5 вопрос
На паскале:

Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<0) then
a:=a*a;
writeln(a);

if (b<0) then
b:=b*b;
writeln(b);

if (c<0) then
c:=c*c;
writeln(c);
end.

Удачи!