Var x: integer;
begin
writeln('Введите число.');
Readln (x);
if x < 0 then
writeln (x*(-1))
else
writeln (2*x);
end.
Var a,b,p:integer; d: real;
begin
readln(a,b);
p:=2*a+2*b;
d:=sqrt(sqr(a)+sqr(b));
writeln('периметр- ',p,' ' ,' диагональ- ',d)
<span>end.</span>
1) Сначала лисенок переправляет на тот берег двух своих собратьев (2 захода);
2) В условии сказано, что ни лисица, ни волк не доверят своих детей другой матери, но про детей ничего не сказано, значит лисенок может переправить на тот берег волчат. Он переправляет трех волчат на тот берег(3 захода);
3) Потом Лисица переправляет своего последнего ребенка на берег. Таким образом, на другой берег уже переправлены все волчата и лисята;
4) Потом Лисица плывет за Волчихой и уже вдвоем они переправляются на тот берег.
Всё!
Ответ на ребус - информация