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