1. уведіть чотиризначне число. виведіть його цифри а) у стовпчик; б) у зворотному порядку.

Uses crt; var s: string;     c: char;     m: set of char;     n,i,k,p: byte; begin writeln('введите текст из строчных латинских букв, окончаание ввода enter'); s: =''; repeat c: =readkey; if c in ['a'..'z'] then   begin   write(c);   s: =s+c;   end; if c=#13 then writeln until c=#13; n: =length(s); m: =[]; for c: ='a' to 'z' do   begin   k: =0;   for i: =1 to n do   if s[i]=c then k: =k+1;   if k> 1 then m: =m+[c];   end; if m=[] then write('нет букв, встречающихся более 1 раза') else   for c: ='a' to 'z' do   if c in m then write(c) end.

#include < iostream> #include < vector> #include < cstdlib> using namespace std; int main(void){    int n; cin > > n;     vector< size_t> p;     for(size_t i = 2; p.size() < n; i++)    {        bool b = true;         for(size_t j = 0;   j < p.size(); j++)            if(i % p[j] == 0)            {                b = false;                 break;             }        if(b) p.push_back(i);     }    for(size_t j = 0;   j< p.size(); j++) cout < < p[j] < < " ";     cout < < endl;     return 0; }