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

Написать функцию которая считает количество цифр натурального числа затем в массиве из 10 натуральных чисел найти число с наибольшим количеством цифр. ПАСКАЛЬ. ПОМОГИТЕ ПОЖАЛУЙСТА!

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

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
function KolCifr(n:integer):=n.ToString.Length;

begin
  var a:=ReadArrInteger(->,10);
  var nmax:=a[0];
  var kmax:=KolCifr(nmax);
  for var i:=1 to 9 do begin
    var k:=Kolcifr(a[i]);
    if k>kmax then begin nmax:=a[i]; kmax:=k end
    end;
  Writeln(Число с макс.длиной: ,nmax)
end.

Тестовое решение:
-> 23532 195234523 423324312 6323 8523732 343235623 342 534544324 974535 253235
Число с макс.длиной: 195234523