Решите пожалуйста задачу на PascalABC 2. Напишите программу, содержащую функцию, возвращающую количество цифр в числе. Примените составленную функцию для определения, в каком из двух заданных чисел количество цифр больше.
function F(a: integer) := a.ToString.Length;begin var a := ReadInteger(); var b := ReadInteger(); Print(F(a) > F(b) ? $'в числе {a} цифр больше' : F(b) > F(a) ? $'в числе {b} цифр больше' : $'в числах {a} и {b} цифр поровну')end.
// файл и картинка для посмотреть