Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.