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

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int n, s = 0;
    cin >> n;
    bool b = false;
    while(n){
        s *= 10;
        s += n % 10;
        n /= 10;
    }
    cout << s;
    return 0;
}

import random

N = random.randrange(1,10000)
print("N = ",N)
q = N
s = 0
while q >= 1:
    r = q % 10
    q = int(q/10)
    s = s*10 + r

print("Новое число:",s)
									

program While19;
var
  N, Rez :Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  Rez:=0;
  while N>0 do
  begin
   Rez:=Rez*10+N mod 10;
   N:=N div 10;
  end;
  Writeln(Rez);
end.