Даны натуральные А и В. Вычислить частное Р и остаток Т при делении А на В используя и не используя операции div и mod

Автор: Захаров Андрей

Вычислить частное Р и остаток Т при делении А на В используя операции div и mod.

var
    a,b,p,t: integer;
begin
     {вводим натуральные A и B}
     readln(a,b);
     writeln('Частное P=', a div b);
     writeln('Остаток T=', a mod b);
end.

Вычислить частное Р и остаток Т при делении А на В не используя операции div и mod.

var
     a,b,p,t: integer;
begin
     {вводим натуральные A и B}
     readln(a,b);
     t:=a; {остаток}
     p:=0; {сначала частное равно 0}
     {до тех пор пока остаток не станет меньше B}
     while t>=b do
           begin
                {уменьшаем остаток}
                t:=t-b;
                {увеличиваем частное}
                inc(p);
           end;
     Выводим
     writeln('Частное P=',p,' остаток T=',t);
end.