решите пожалуйста задачку на PascalABC 2. Напишите программу, содержащую функцию,

Решите пожалуйста задачу на PascalABC


2. Напишите программу, содержащую функцию, отдающую количество цифр в числе. Примените составленную функцию для определения, в каком из 2-ух данных чисел количество цифр больше.

Шныпуляк Нина 2019-09-21 21:00:32

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.