вот так вводим 2 числа например 5 и 2 надо неиспользовая div и mod надо 5 div 2 = 2 без div и также остаток без mod
написал я только остаток как вычесляется
program Bevarde0;
var a,b:integer;
procedure del (z,x:integer);
var m:integer;
begin
if z>=x then begin del(z-x,x) end
else writeln(' ',z);
end;
begin
WriteLn('vvedite dva cisla');
readln(a,b);
del(a,b);
readln;
end.
а как посчитать результат после div?
мне кажется надо както так чтобы подсчитать сколько обращений к процедуре идет но как?