#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>
Program NoName;
var
a:array [1..3000] of integer;
b,c,i,n:integer;
Begin
WriteLn('введіть кількість чисел');
ReadLn( n );
a[1]:=1;
a[2]:=1;
b:=0;
WriteLn('Список ',n,' чисел Фібоначі');
WriteLn(a[1]);
WriteLn(a[2]);
for i:= 3 to n do
begin
a[i]:=a[i-2]+a[i-1];
b:=b+a[i];
WriteLn(a[i]);
end;
b:=b+a[1]+a[2];
WriteLn('Сума усіх чисел Фібоначі становить ',b);
end.
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.