Question

Скласти програму пошуку остачі від ділення двох чисел методом послідовного віднімання

Answer 1

var a, b, c, n: real;

begin

ReadLn(a);

ReadLn(b);

n:=a div b;

while c>=0 do

c:=a-n*b;

WriteLn(c);

end.