Question

Вводятся 2 целых числа , в каком числе больше цифр?

Answer 1

PascalABC.NET Версия 3.0 Сборка 1150

var  a, b: integer;
begin
  readln(a, b);
  var len := Length(a.ToString) - Length(b.ToString);
  if len > 0 then writeln('В первом больше на ', len) else if len < 0 then writeln('Во втором больше на ', abs(len)) else writeln('Одинаковое количество цифр');
end.