функція

[STALKER7538]

описати функцію f(x)- число, яке складається з усіх непарних цифр натурального числа х.(якщо всі цифри числа х парні,f(x)=0). Скласти програму, яка друкує значення функції f(x1),...,f(xn) для набору чисел.

[Mad_Cat]

function Sum_N_Digit(N :integer):integer;
var s:integer;
begin
s:=0;
while N<>0 do begin
if odd(N mod 10) then s:=s+N mod 10;
n:=n div 10;
end;
Sum_N_Digit:=s;
end;

пример использования

for i:=1000 to 100000 do
writeln(i,' ',sum_N_digit(i));

[Don Karleone]

Mad_Cat ты и украинский язык знаешь.

[Mad_Cat]

Don Karleone Он Знает!!!!

[Don Karleone]

вот функция, которая возвращает число, состоящее из нечетных цифр числа x. Пример: f(325) = 35.
Это на тот случай, если Mad_Cat сделал не так. Его функция возвращает сумму нечетных цифр числа.

function f(x: word): longint;
var
  k: word;
  r, count: longint;
begin
  r:=0;
  count:=1;
  while x > 0 do
      begin
          k:=x mod 10;
          if odd(k) then
                        begin
                            R:=R + k * count;
                            count:=count * 10;
                        end;
          x:=x div 10;
      end;
  f:=R;
end;