Question

Ведите два числа например А=45 и B=8 и найдите их частное от деления нацело в переменной А,используя только операцию вычитания. Помогитеее!!

Answer 1

Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
end.