Решение задачи Integer 15

# include <iostream>
# include <windows.h>
# include <cmath>

using namespace std;

int main ()

{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
    
  int abc;
  int bac;
  int a, b, c;
  cout << "Введите трехзначное число: ";
  cin >> abc;
  a=abc/100;
  b=(abc/10)%10;
  c=abc%10;
  bac = b*100 + a*10 +c;
  cout << "Число после преобразования: " << bac <<endl;
  

  system ("pause");
  return 0;
}

import random

N = random.randrange(100,1000)
print("Число: ", N)
d2 = int(N/100)
d1 = int((N-d2*100)/10)
d0 = N%10
print("Сотни: ", d2)
print("Десятки: ", d1)
print("Единицы: ", d0)
print("Другое число: ", d1*100 + d2*10 + d0)

									

program Integer15;
var
  A, Res: Integer;
begin
  Write('Введите трёхзначное число: ');
  Readln(A);
  Res:=(A mod 10) + ((A mod 100) div 10 )*100+ (A div 100)*10;
  //*
  Writeln('Число, полученное при перестановке цифр: ',Res);
end.