//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var а := ReadReal('а=');
var б := ReadReal('б=');
PrintLn((а*а+б*б)/б*б);
end.
Прямой счета:
применяем алгоритм в первый раз
14414400
применяем алгоритм во второй раз
14414400144144000000
считаем количество нулей
8
Логический:
В исходном числе 2 четные цифры (4 и 4), значит после выполнения алгоритма в первый раз в конце допишется 2 нуля. Когда мы выполним алгоритм во второй раз, то количество четных чисел увеличится в 2 раза, т.к. мы дважды записывали исходное число. таким образом, ченых чисел станет 4, а следовательно и допишется в конце 4 нуля. Плюс не забываем о тех двух нулях, которые получились после певого выполнения алгоритма. А так как мы дважды переписали это число, то количество нулей стало 4. Складываем: 4 образовалось полсе записи дважды числа и 4 за счет дописывания по количеству четных чисел. Итого: 8
begin
readln(a,b);
writeln((a*a+b*b)/(b*b));
end.
Компилятор: Free Pascal Compiler 2.6.2