Начали изучать паскаль и дали вот такую : с клавиатуры вводится целое число k (1 ≤ k ≤ 180) . определить k-ю цифру в последовательности двузначных чисел, выписанных подряд ( решить и желательно объясните.буду ..

Двухзначное число имеет два разряда - десятки и единицы. если k нечетное, то это цифра десятков в числе, а если четное - цифра единиц. а само число определяется как 10 плюс частное от целочисленного деления k-1 на 2. var   n, k: integer; begin   write('введите натуральное число k (k< =180): ');   readln(k);   n : = 10 + (k - 1) div 2;   if (k mod 2 = 0) then n : = n mod 10   else n : = n div 10;   writeln('искомая цифра- ', n) end. тестовое решение: введите натуральное число k (k< =180): 7 искомая цифра- 1

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   range(-50,50,5).tabulate(x-> (x+4)*sqr(x+4)-sin((newline) end. результат: (-50,-97336.2623748537) (-45,-68920.1490964755) (-40,-46655.2548868395) (-35,-29791.4281826695) (-30,-17576.9880316241) (-25,-9261.1323517501) (-20,-4095.08705474927) (-15,-1330.34971215984) (-10,-216.544021110889) (-5,-1.95892427466314) (0,64) (5,729.958924274663) (10,2744.54402111089) (15,6858.34971215984) (20,13823.0870547493) (25,24389.1323517501) (30,39304.9880316241) (35,59319.4281826695) (40,85183.2548868395) (45,117648.149096475) (50,157464.262374854)

#include < iostream> #include < iomanip> int main() {       using namespace std;       const int n = 4;       const int m = 4;       int y[n][m];       //как-нибудь заполняем матрицу       for (int i = 0; i < n; ++i)             for (int j = 0; j < m; ++j)                   y[i][j] = (i + 1) * (j + 1);       //выведем её на экран       for (int i = 0; i < n; ++i)       {             for (int j = 0; j < m; ++j)                   cout < < setw(3) < < y[i][j];             cout < < endl;       }                   //находим сумму элементов побочной диагонали       int s = 0;       for (int i = 0; i < n; ++i)             for (int j = 0; j < m; ++j)                   if (j == m - 1 - i)                         s = s + y[i][j];       cout < < "sum of adverse diagonal of array: " < < s < < endl;       //находим сумму всех элементов матрицы       int sum = 0;       for (int i = 0; i < n; ++i)             for (int j = 0; j < m; ++j)                   sum = sum + y[i][j];       cout < < "sum of all elements of array: " < < sum < < endl;       return 0; }