#include <cstdlib>
#include <iostream>
#include <cstring>
using namespace std;
void Poly(int nmb) {
char s[20]="",st[20];
itoa(nmb,st,10);
int k=strlen(st);
for (int i=0; i<k; i++) s[i]=st[k-i-1];
if (strcmp(s,st)==0) cout<<"number: "<<nmb<<" palindrom"<<endl;
else { k=atoi(s); nmb+=k; Poly(nmb); }
}
int main(){
int nn;
cout<<"number: "; cin>>nn;
Poly(nn);
system("pause");
return 0;
}
<span>
</span>
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
В десятичной это: 172 - 4 = 168
В двоичной 168 это 10101000
«Statistical Psychology for the Social Sciences» – «статистический пакет для психологов и социологов»