Объяснение:
в разделе а) происходит присвоение суммы переменных а и b переменной k, а команда print(c) пытается вывести на экран переменную k, значение которой не определено.
в разделе b) ошибок нет, так как указанный в пункте а) недостаток отсутствует. Может показаться ошибкой разный регистр переменных A, B и С (где-то строчная, где-то прописная), но на самом деле интерпретатору без разницы, он регистр знаков в имени переменных не учитывает, и для него символы А и а в имени переменной одинаковы. Так что пункт b) ошибок не содержит.
в разделе с) значение присваивается переменной с именем age, а команда print пытается вывести на экран переменную ag, значение которой не определено. Ошибка практически идентична ошибке из пункта а)
1)
a = int(input('Введите первое число: '))
b = int(input('Введите второе число: '))
c = a + b
print(f'ответ: {c}')
2)
n = int(input('Целое число: '))
result = 0
if n >= 1:
if n <= 1018:
while n != 1:
if (r := n % 3) == 0:
n //= 3
elif r == 1 or n == 2:
n -= 1
elif r == 2:
n += 1
result += 1
print(f'Количество действий: {result}')
else:
print('Число больше 1018')
else:
print('Число меньше 0 или равно 0')
Объяснение:
X1,Y1,X2,Y2,X3,Y3:real;
A,B,C:real;
Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.