Пусть дано натуральное число n, состоящее из шести цифр. определите число сотен и тысяч в нем.

Var n: string; begin readln(n); writeln('число сотен: ',n[4]); writeln('число тысяч: ',n[3]); end.

#include < string> #include < iostream> using namespace std; int main() {   char c;   string s, s2 = "";   cout < < "введите строку: ";   getline(cin, s);   cout < < "введите символ: ", cin > > c;   for (int i = 0; i < s.length(); i++)   {       s2 += s[i];       if (s[i] == c)       {           s2 += s[i];       }   }   s = s2;   cout < < s < < '\n';   return 0; }

// pascalabc.net 3.3 begin   var a: =matrrandom(5,5,-10,10); a.println(5);   writeln(a.elementsbyrow.where(x-> x> 0).average); end. пример:     -3    2  -10    -5    -6     -1    0    4    -6    4     4    -4    3    -5    6     6  -10    4    2    -7     8    -6    9    -3    -1 4.72727272727273