<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
1) 168+1011002(есть надо решить, то будет 1011070)
2) 101102 + 348 + 15 = 101465
3) 5748 + 4678 = 10426 (в десятеричной)
10426(10-ая система с.) = 024272(8-ая система с.)
4) 2768 - 7328 = -4560(в десятичной)
-4560(10-ая система с.) = -10720(8-ая система с.)
5) Х = 78 - 10102-358
Х = -10382
-10382(10-ая система с.) = 024216(8-ая система счисления)
Ответ:
Объяснение
import math
x1 = float(input("Введите x1 - "))
y1 = float(input("Введите y1 - "))
x2 = float(input("Введите x2 - "))
y2 = float(input("Введите y2 - "))
L = math.sqrt((x2-x1)**2+(y2-y1)**2)
print("L = " + str(L))
Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000