Написать функцию которая считает количество цифр натурального числа затем в массиве из 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
В предыдущем вопросе я написала решение. program z; var a,b,c,d,e,x,g,h:integer; begin write('Введите пятизначное число'); read(x); a:= x mod 10; b:= x mod 100; b:= b div 10; c:= x mod 1000; c:= c div 100; d:= x mod 10000; d:= d div 1000; e:= x mod 100000; e:= e div 10000; if a mod 2=0 then h:=a else g:=a; if b mod 2=0 then h:=h+b else g:=g+b; if c mod 2=0 then h:=h+c else g:=g+c; if d mod 2=0 then h:=h+d else g:=g+d; if e mod 2=0 then h:=h+e else g:=g+e; writeln(' Сумма нечётных цифр равна ', g); write(' Сумма чётных цифр равна ', h); end.
Скорее всего всё можно было проще сделать, но я только так понимаю, так что вот. Программа проверена и работает. program z; var a,b,c,d,e,x,g,h:integer; begin write('Введите пятизначное число'); read(x); a:= x mod 10; b:= x mod 100; b:= b div 10; c:= x mod 1000; c:= c div 100; d:= x mod 10000; d:= d div 1000; e:= x mod 100000; e:= e div 10000; if a mod 2=0 then h:=a else g:=a; if b mod 2=0 then h:=h+b else g:=g+b; if c mod 2=0 then h:=h+c else g:=g+c; if d mod 2=0 then h:=h+d else g:=g+d; if e mod 2=0 then h:=h+e else g:=g+e; writeln(' Сумма нечётных цифр равна ', g); write(' Сумма чётных цифр равна ', h); end.
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