#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>
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
Рассмотрим возможные варианты кода:
11222 кол. для каждого случая =5!/(2!*3!) =5*4/2=10
11333 всего: 10*3 =30
11444
------------------------------------
11223 5!/(2!*2!*1!) = 5*4*3/2=30
11224 всего: 30*6 =180
11332
11334
11442
11443
-----------------------------------------
11234 5! / (2!1!1!1!) = 5*4*3=60
------------------------------------------------------------------------
Итого: 180+30+60 = 270
1. числовая-количественная - мера объектов и их свойств в окружающем мире.
2. Звуковая — воспринимаемая органами слуха.
3.Тактильная — воспринимаемая тактильными рецепторами.
4. Обонятельная — воспринимаемая обонятельными рецепторами.
5. Вкусовая — воспринимаемая вкусовыми рецепторами.
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>