2017 делим с остатком на 3 до тех пор пока неполное частное не станет меньше 3. В ответ на первое место записываем последнее неполное частное и приписываем к нему все остатки, слева направо, начиная с последнего. Получим 2202201 в троичной системе счисления
Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.
B:=32(после вычисления);
a:=32(после вычисления);
// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.