решить задачу по информатике.через реку необходимо переправить лису,петуха и горошину на лодке,которой управляет человек.он перевозит не более двух пассажиров,а может двигаться и без них.пока они вместе,никто никого не обижает,но оставлять лису с петухом,а петуха с горошиной без присмотра нельзя-лиса может сьесть петуха,а петух может склевать горошину.как переправить героев,чтобы никто никого не сьел. нужно сост план действий или в виде таблицы.
Для того, чтобы избежать переполнения разрядной сетки, значение квадрата натурального числа не должно превышать максимального числа, представимого выбранным типом данных.
В языке Паскаль числа типа longint записываются в четырех байтах в дополнительном коде, т.е. максимальное значение числа не может превышать 2³¹-1. Тогда максимальное натуральное число, квадрат которого мы можем вычислить, равно целой части от величины:
//PascalABC.Net 3.0, сборка 1066
var
s:string;
i,n,lim,l:longint;
begin
lim:=Trunc(exp(15.5*ln(2)));
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