Вpascal abc составить программу которая формирует масив и 10 случайнных чисел из промежутка [2; 30] и меняет значения второго и пятого элементов

269

408

Посмотреть ответы 1

Ответы на вопрос:

елена1170

Информатика

4,6(69 оценок)

Немного теории. для того, чтобы избежать переполнения разрядной сетки, значение квадрата натурального числа не должно превышать максимального числа, представимого выбранным типом данных. в языке паскаль числа типа 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