Решить на языке ! дано пятизначное число 1)зачеркнуть последнюю цифру 2)зачеркнуть первые 2 цифры 3)зачеркнуть предпоследнюю цифру 4)зачеркнуть три последние цифры число 53714

1) program z1; uses crt; var a: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a> =10000) and (a< =99999); a: =a div 10; writeln (a); readkey; end. 2) program z2; uses crt; var a: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a> =10000) and (a< =99999); a: =a mod 1000; writeln (a); readkey; end. 3) program z3; uses crt; var a, b: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a> =10000) and (a< =99999); b: =a mod 10; a: =a div 100; writeln (a, b); readkey; end. 4) program z4; uses crt; var a: integer; begin clrscr; repeat write('enter a: '); readln(a) until (a> =10000) and (a< =99999); a: =a div 1000; writeln (a); readkey; end.

1)#include < iostream> #include < string> #include < windows.h> using namespace std; int main(){  setlocale (lc_all,"rus");   setconsolecp(1251);   setconsoleoutputcp(1251);   cout < < "введите строку: " < < endl;   string str;   getline (cin,str);   for (int i = 0; i< =str.; i++)  {    if (str.at(i) == 'а')      str.at(i) = 'а';     else if (str.at(i) == 'б')      str.at(i) = 'б';   }  cout < < endl;   cout < < "результат: " < < endl;   cout < < str < < endl;   return 0; }2)#include < iostream> #include < string> using namespace std; int main(){  setlocale (lc_all,"rus");   setconsolecp(1251);   setconsoleoutputcp(1251);   cout < < "введите строку: " < < endl;   string str;   getline (cin,str);   bool f = true;   for (int i = 0; i< =(str.)/2; i++)  {    if (str.at(i)! =str.at(str.-i))    {      f = false;       break;     }  }  cout < < "результат: " < < endl;   if (f)    cout < < "палиндром" < < endl;   else cout < < "не палиндром" < < endl;   return 0; }

#include < iostream> using namespace std; int main() {   float x,y,c;   cout < < "x = ";   cin > > x;   cout < < "y = ";   cin > > y;   if (x> y)   {       c = x;       x = y;       y = c;   }   cout < < "x = " < < x < < endl                   < < "y = " < < y < < endl;   return 0; }