Написать функцию которая считает количество цифр натурального числа затем в массиве из 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
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