Program hhh54; var n: longint; x: real; begin x:=0; read (n); while n <> 0 do begin x:=x + sqr(n mod 10); n:=n div 10; end; x:=Exp(ln(x)/3); write (x:0:3); end.
Квадратное алгебраическое уравнение имеет вид:ах^2 + bx + c = 0. (1)Здесь а, b и с – коэффициенты. Сначала надо вычислить дискриминант квадратного уравненияD = (b^2 – 4ac) (2)Если D > 0, то квадратное уравнение имеет два корня х1 и х2. Обозначим С = корень(D). То есть надо вычислить квадратный корень из D. Имеем такие решениях1 = (–b + C)/(2a) и x2 = (–b – C)/(2a). (3)Если дискриминант D = 0, то C = 0 и оба корня одинаковы Х1 = Х2 (хотя в школе обычно говорят, что имеется только одно решение) и вычисляются по формулеХ1 = Х2 = –b/(2a). (4). Эта формула следует из формулы (3) при С = D = 0.Если дискриминант D меньше нуля, то корень из D вычислить нельзя, С будет мнимым числом. Вообще говоря, корни есть (2 штуки), но они будут мнимыми числами. Хотя в школе учат, что в этом случае корней НЕТ. Так и будем считать, что корней нет.Алгоритм решения будет следующийНо только здесь дискриминант D обозначен малой буквой d
36^7 = 6^2^7 = 6^14 следовательно 36^7 в шестиричной СС будет 1 и 14 нулей. 6^19 в шестиричной СС будет 1 и 19 нулей. тогда полученное число 1 -> 4 нуля -> 1 -> 14 нулей. пока их 18 теперь от полученного отнимем 18 в СС с основанием 6. 18(10) = 30(6) 0 - 0 = 0 (последний разряд числа) далее по принципу вычитания "занимаем" разряды до ближайшей единицы. после чего у нас остаётся 3 в предпоследнем разряде и 12 цифр 5. итого у нас 12 пятёрок, тройка и единица. так как число 20 разрядное, то 20 - 14 = 6 нулей в записи числа в СС с основанием 6 ответ: 6
Можно и в лоб посчитать, тогда получим 10000055555555555530
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
end.