Question

ОЧЕНЬ СРОЧНО!!!!!
Дано два числа, найти разницу между количеством разрядов у этих чисел написать программу на паскале, только легкую.

Answer 1

var

 FirstNumber, SecondNumber:integer;

 FirstString, SecondString:string;

begin

 (FirstNumber, SecondNumber):=ReadInteger2('Введите два числа: ');

 str(FirstNumber, FirstString);

 str(SecondNumber, SecondString);

 write('Разница между разрядами чисел: ', abs(length(FirstString) - length(SecondString)));

end.