Задание №1 Целые числа записаны в некоторых системах счисления (CC). CC с основанием: 16 . Числа в этой СС: CC с основанием: 12 . Числа в этой СС: 188 ; 18C ; 280 : 286 471 : 457 CC с основанием: 9 Числа в этой CC: CC с основанием: 5 . Это заданное число: 3023 . 185; 190 Сколько чисел МЕНЬШЕ заданного числа? В ответе указать только количество таких чисел. Не забывайте показывать ход решения.

Начнем с формул.
Площадь треугольника: S = 1/2*a*b*sin C
Отсюда: sin C = 2*S/(a*b); cos C = sqrt(1 - sin^2 C)
tg C = sin C / cos C; C = atan(tg C)
Теорема косинусов: c = sqrt(a^2 + b^2 - 2*a*b*cos C)
Площадь: S = c*h/2; отсюда h = 2*S/c
Теорема синусов: a/sin A = b/sin B = c/sin C
Отсюда: sin A = a/c*sin C; sin B = b/c*sin C
cos A = sqrt(1 - sin^2 A); cos B = sqrt(1 - sin^2 B)
tg A = sin A/cos A; A = atan(tg A);
tg B = sin B/cos B; B = atan(tg B)
Периметр: P = a + b + c
Теперь записываем в Паскале
singam := 2*S/(a*b); cosgam = sqrt(1 - singam*singam);
tangam := singam/cosgam; Gamma := atan(tangam);
c := sqrt(a*a + b*b - 2*a*b*cosgam); h := 2*S/c;
P := a + b + c;
sinalp = a/c*singam; cosalp = sqrt(1 - sinalp*sinalp);
tanalp := sinalp/cosalp; Alpha := atan(tanalp);
sinbet = b/c*singam; cosbet = sqrt(1 - sinbet*sinbet);
tanbet := sinbet/cosbet; Beta := atan(tanbet);

BEGIN
write ('Vvedite 2 chisla: '); readln (A, B);
if A > B then
begin
A := A/3;
B := B*2;
end;
if B > A then 
begin
B := B/3;
A := A*2;
end;
writeln (A, B);
END.

ax^2 + bx + с = 0 - это длинная программа. Нужно учесть такие случаи:
1) а = 0, x = -c/b;
2) a =/=0, D=b*b-4*a*c > 0, x1 = (-b - sqrt(D)) / (2*a),  x2 = (-b + sqrt(D)) / (2*a);
3) D = 0, x1 = x2 = -b / (2*a);
4) D < 0, действительных корней нет. Комплексные корни, если нужно:
x1 = -b / (2*a) - i*sqrt(-D)) / (2*a),  x2 = -b / (2*a) + i*sqrt(-D)) / (2*a);

y = Abs(x-1) - тут вообще делать нечего. Подставляй разные х и вычисляй у.