recurs1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 19 行

program pr1;
var a,b:integer;
function impartire(var a,b:integer;i:integer):integer;
begin
if b=0 then write('nu se poate')
       else if a=0 then impartire:=0
                   else if a>=b then
                                    begin
                                    a:=a-b;
                                    impartire:=1+impartire(a,b,i+1);
                                    end
                                else impartire:=0;
end;
begin
write('a=');readln(a);
write('b=');readln(b);
write(impartire(a,b,0),'rest',a);
readln;
end.