возврат суммы Опции

[snopy]

Помогите пожайлуста разобратся с этой задачей. Описать функцию, которая возвращает сумму К=1,2,… наименьших цифр, входящих в запись числа типа Longint . Вот код только помоему он неправильно считает. Тут мне кажется вся проблема в К она поидее должна описыватся в var.

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.

[snopy]

Вот что у меня ещё получилось. только тут нужно вычесть максимальный элемент. Только тут нужно сделать так чтоб выводилась сразу сумма. А сумма минимальных находится просто сложением без максимального чмсла, тюею не нужно задавать какое именно кол-во минимальных цифр нужно порлучить

var
ch:longint;
procedure do_it(var l:longint);
var
i,j,n,s,min:integer;
m:array[1..25] of integer;
Begin
	i:=1;
	while l>0 do
		begin
		   m[i]:=l mod 10;
		   l:=l div 10;
		   n:=i;
		   inc(i)
		end;
	 for j:=1 to n-1 do
		 for i:=1 to n-j do begin
			 if m[i]>m[i+1] then
			 begin
			   min:=m[i];
			   m[i]:=m[i+1];
			   m[i+1]:=min
			 end;		   end;
			 s:=0;
		   for i:=1 to n do
			   begin
					s:=s+m[i];
					writeln(s)
			   end;
		   end;
BEGIN
read(ch);
do_it(ch)
End.

Сообщение отредактировано: volvo - 27.11.2009 21:04