Рекурсия. Язык С

[bifshtex]

извините за название прошлой темы, случайно enter нажал...



задача на самом деле не сложная, алгоритм простой, только вот как ее с рекурсией сделать...


С клавиатуры вводится последовательность положительных чисел. Признак конца ввода - ноль. Определить количество чисел, больших 10.

[InfStudent]

Решение:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  i,j:integer;
 function Rec( j:integer):integer;
 var
 k:integer;
begin
readln(k);
if k=0  then
begin
Rec:=j;
end
else
begin
if k>10 then
begin
Rec:=Rec(j+1);
end
else
begin
Rec:=Rec(j);
end;
   end;
      end;
begin
j:=0;
 i:=Rec(j);
 writeln(i);
 readln;
end.
 

[bifshtex]

хмм, а не подскажете как это будет в си?
или в турбо паскале?

[InfStudent]

int rec(int j);
{
int k;
scanf("%d",&k);
if (k=0){
return j;
}else{
if k>10 {
return Rec(j+1);
}else{
return Rec(j);
}
}
}