Функции. Pascal

[Chebattler]

Pein95
тупые задания на олимпиадах по паскалю уровня район-город.
Вот там задания так задания...

[Pein95]

я б не сказал) сам прошол ето ) сейчас готовлюсь на область
Стоп. Вы про школьные или университетские олимпиады?

[tutis]

Написать и протестировать функцию,которая по заданному натуральному числу определяет количество цифр в нем и сумму цифр на нечетных местах.
Вот, что у меня получилось.Программа правильно считает количество цифр в числе, но сумму неправильно.Помогите разобраться.

 
var n:longint;
function kolcifr(n:longint):byte;
var k:byte;
begin
  k:=0;
 while n<>0 do begin
    n:=n div 10;
    k:=k+1;
    end;
    kolcifr:=k;
    end;
    function sumcifr(n:longint):longint;
    var i,k:longint;
    s:longint;
    b:array [1..10] of integer;
    begin
    s:=0;
    k:=0;
    while n<>0 do begin
    n:=n div 10;
    k:=k+1;
    b[k]:=n mod 10;
  for i:=1 to k do
  if (i mod 2=1) then
  begin
  s:=s+b[i];
  end;
  end;
  sumcifr:=s;
  end;
  begin
  clrscr;
  write('n=');
  readln(n);
  writeln('kolichestvo cifr v chicle=',kolcifr(n));
  writeln('summa cifr na nechetnih mestah=',sumcifr(n));
  readln;
end.

[k0tone]

Попробуй так:

var n:longint;

function kolcifr(n:longint):byte;
 var k:byte;
 begin
  k:=0;
  while n<>0 do
   begin
    n:=n div 10;
    k:=k+1;
   end;
    kolcifr:=k;
 end;

function sumcifr(n:longint):longint;
 var i,k:longint;
     s:longint;
     b:array [1..10] of integer;
 begin
  s:=0;
  k:=0;
  while n<>0 do
   begin
    k:=k+1;
    b[k]:=n mod 10;
    n:=n div 100;
   end;

 for i:=1 to k do s:=s+b[i];
 sumcifr:=s;
 end;

begin
 write('n=');
 readln(n);
 writeln('kolichestvo cifr v chicle=',kolcifr(n));
 writeln('summa cifr na nechetnih mestah=',sumcifr(n));
 readln;
end.

P.S. Нечётные элементы считаю слева направо...

[delTh]

ну и еще примерчик

PROGRAM  NAT;
uses crt;
Var N:LongInt;
    sum:integer;
Function Func(n:LongInt):byte;
 var i,j:shortint;
     a:array[0..127] of byte;
begin
 i:=0;
 if n>=0 then begin
   while n > 0 do begin
     a[i]:=n mod 10;
     n:=n div 10;
     i:=i+1;
   end;
   j:=i-1;{так как i считаем с нуля}
   while j > 0 do begin
    sum:=sum+a[j];
    j:=j-2;
   end;
 end;
 Func:=i;
end;


BEGIN
Clrscr;
sum:=0;
Write('Введите натуральное число: ');
Readln(N);
writeLn('Кол-во цифр: ',Func(N),', сумма: ',sum,'.');
END.