Все квадраты натуральных чисел записаны подряд, начиная с единицы. определить, какая цифра стоит на n-м месте. пример ввода: 4 вывода: 1

Немного теории. для того, чтобы избежать переполнения разрядной сетки, значение квадрата натурального числа не должно превышать максимального числа, представимого выбранным типом данных. в языке паскаль числа типа longint записываются в четырех байтах в дополнительном коде, т.е. максимальное значение числа не может превышать 2³¹-1. тогда максимальное натуральное число, квадрат которого мы можем вычислить, равно целой части от величины:   //pascalabc.net 3.0, сборка 1066 var   s: string;   i,n,lim,l: longint; begin   lim: =trunc(exp(15.5*ln(;   write('введите номер позиции: '); read(n);   i: =0; l: =0;   while (l< n) and (i< =lim) do begin       inc(i); str(i*i,s); l: =l+length(s);   end;   if i< =lim then writeln('искомая цифра- ',s[length(s)-l+n])   else writeln('решения в типе данных longint невозможно') end. тестовое решение: введите номер позиции: 4 искомая цифра- 1 введите номер позиции: 33 искомая цифра- 5

//pascalabc.net 3.2 begin     var a: =arrrandom (readinteger('n ='), -15, 15); a.println;     var b: array of integer; for var i: =0 to length(a)-1 do if not((a[i]< 0) or ((a[i] mod 8)=0)) then begin     setlength (b, length(b)+1);     b[length(b)-1]: =a[i] end;     b.print; end.