1 задача
var
X_1, Y_1, X_2, Y_2, AC, BC, AB:real;
begin
writeln('Введите значания X_1 (точки A)');
readln(X_1);
writeln('Введите значания Y_1 (точки A)');
readln(Y_1);
writeln('Введите значания X_2 (точки B)');
readln(X_2);
writeln('Введите значания Y_2 (точки B)');
readln(Y_2);
AC:=X_2-X_1;
BC:=Y_2-Y_1;
AB:=sqrt((AC*AC)+(BC*BC));
writeln('Длинна отрезка AB равна ', AB);
end.
2 задача
var
A, B, C, P, S:real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
if(A+B<=C) or (A+C<=B) or (B+C<=A) then
writeln('Треугольник с такими сторонами не существует')
else
writeln ('Площадь треугольника по теореме Герона равна ', S);
end.
Задание 7
порядок входов:
B C A
Строка 3
B=1, F=1
Строка 4
B=1, A=1, F=0
Строка 7
B=1, C=1, F=1
Строка 8
B=1, C=1, A=1, F=1
Результат вычисления выражения = 43046746
В 3-ричной системе = 10000000000000221
Кол-во цифр 2 = 2
9^8 + 3^3 - 2 = <span>3^16 + 3^3 - 3^1 + 1
</span>3^16 (3) = 10000000000000000 => нет 2
3^3 - 3^1 (3) = 1000 - 10 = 220 => 2 двойки
+1 => не дает двоек
Ответ 2