перевод на с++ Опции

[Feagor]

вот такой код на паскале

uses crt;
var k,l,m,i:longint;
function rif(n,m:longint):boolean;
var i:integer;
begin
        repeat
          inc(i);
          if odd(n) then n:=n*3+1
          else n:=n div 2;
        until (n=1) or (i>=m);
if i>=m then rif:=false
else rif:=true;
end;
begin
clrscr;
Writeln('Vvedite natural''nie chisla K,L,M');
readln(K,l,m);
if (k<0) or (l<0) or (k>l) or (m<0) then
        begin
          writeln('Vvedennie vami chisla ne vvedeni nepravilno');
          readkey;
          halt;
        end;
for i:=k to l do if rif(i,m)=true then writeln('dlya chiisla ',i,' vipolnjaetsa')
else writeln('dlya chiisla ',i,' ne vipolnjaetsa');
readkey;
end.

че-то на с перевожу ниче не полчается, помогите плиз!!!!!

Сообщение отредактировано: Feagor - 24.01.2008 18:11