===== PascalABC.NET =====
begin
ReadlnString
.ToWords
.Select(w -> w.Inverse)
.JoinIntoString(' ')
.Print
end.
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,99,2).Select(x->x*x).Sum)
end.
<u>Результат</u>
166650
Визитка города2.история города3.дстопримичательности
На с++
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int n, i, j, k(0),s(0);
cout << "vvedite kol-vo elementv \n";
cin >> n;
int *a = new int[n];
cout << "zapolnite massiv \n";
for (i = 0; i < n; i++)
{
cout << "a[" << i << "]=";
cin >> a[i];
}
for (i = 0; i<n; i++) {
k = 0;
for (j = 0; j<n; j++)
if (a[i] == a[j]) k++;
if (k == 1)
s++;
}
cout << "otvet: " <<s << endl;
return 0;
}
Пример в Excel. лист защищен без пароля, чтобы не испортить формулы. Программа работает от 0 до 255 числа. Для перевода достаточно разделить, отбросив дробную часть и затем выписать результат в обратном порядке.