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 -