program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= c*100 + b*10 + a;
writeln('Число наоборот: ',abc);
end.
2.program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= b*100 + c*10 + a;
writeln('Первое число переместили в конец: ',abc);
end.
PascalABC 3.4.2
#include <iostream>
using namespace std;
void swap(int *a, int *b){
int temp = *a;
*a = *b;
*b = temp;
}
signed main() {
int ans = 0;
int n;
cin >> n;
int arr[n];
for(int i = 0; i < n; i++)
cin >> arr[i];
for (int i = 0; i < n-1; i++){
for (int j = 0; j < n-i-1; j++){
if (arr[j] < arr[j+1]){
swap(&arr[j], &arr[j+1]);
ans += (arr[j] - arr[j+1])*2;
}
}
}
cout << ans;
}
P.S: задачка не тупая, хороший вариант для понимания bubble sort'а
