Решение задачи While 3

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int N = rand() % 100 + 1;
	int K = rand() % 100 + 1;	
	cout << "N = " << N << endl;
	cout << "K = " << K << endl;
	
	int r = N;
	int q = 0;
	while(r >= K) {
		r -= K;
		q += 1;
	}
	cout << "Quotient: " << q << endl;
	cout << "Remainder: " << r << endl;

	return 0;
}

import random

N = random.randrange(1,99)
K = random.randrange(1,99)
print('N = ', N)
print('K = ', K)

r = N
q = 0
while r >= K:
    r -= K
    q += 1
print("Частное: ", q)
print("Остаток: ", r)
									

program While3;
var
  A, B,temp,Num :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  Write('Введите B: ');
  Readln(B);
  temp:=A;
  Num:=-1;
  while temp>=0 do
   begin
    temp:=temp-B;
    inc(Num,1);
   end;
  Writeln('Результат деления на цело: ',num);
  Writeln('Остаток от деления: ',temp+B);
end.