type
A=array[0 .. 9] of byte;
function get_sum(n: longint; k: integer): integer;
var
arr:A;
i,T,sum:integer;
begin
fillchar(arr, sizeof(arr), 0);
while n > 0 do begin
inc(arr[n mod 10]); n := n div 10;
end;
sum := 0; T := 0;
while k > 0 do begin
while arr[T] = 0 do inc(T);
inc(sum, T * arr[T]);
inc(T); dec(k);
end;
get_sum := sum;
end;
var
n: longint;
k: integer;
begin
write('vvedite chislo = '); readln(n);
write('vvedite kol-vo min chifar = '); readln(k);
writeln('summa = ', get_sum(n, k));
readln;
end.
возврат суммы |