(34 ) даны целые числа а и b (а > b). определить: результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на pascal abc/ c цикла while
var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.