Var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.
Пример:
a = 123
b = 132
#include <iostream>
#include <string>
#include <math.h>
#include <algorithm>
using namespace std;
int hexCharToDec(char hexChar)
{
switch (hexChar) {
case 'a':
return 10;
break;
case 'b':
return 11;
break;
case 'c':
return 12;
break;
case 'd':
return 13;
break;
case 'e':
return 14;
break;
case 'f':
return 15;
break;
default:
return hexChar - 48;
break;
}
}
int hexToDec(string hexString)
{
std::transform(hexString.begin(), hexString.end(), hexString.begin(), ::tolower);
int power = 0, ret = 0;
for (string::reverse_iterator rit = hexString.rbegin(); rit != hexString.rend(); ++rit) {
ret += hexCharToDec(*rit) * pow(16, power);
power++;
}
return ret;
}
int main()
{
string s;
cout << "Строка: ";
cin >> s;
cout << endl << "Ответ: " << hexToDec(s) << endl;
return 0;
}
Program qq;
var a,b:integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
if a>b then
writeln(b);
or
writeln(a);
end.
Program prog;
uses crt;
var a: array [1..30] of integer;
i: integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 30 do
begin
if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
write (a[i], ' ');
end;
end.