function Hanoi(n: integer): uint64;
begin
if n = 1 then
begin
Result:=1;
exit();
end
else
begin
Result:=2 * Hanoi(n-1) + 1;
end;
end;
begin
writeln(hanoi(64));
end.
1 точка занимает 5 бит
(1600*1200)*5=1200000байт
N=10;
k=17*40;
I-?
Решение
N=2^i
i=4
I(одного пароля)=17*i=68бит=9Байт
I(40-ка)=I(1)*40=360Байт-ответ
Var
i,n,a:integer;
Begin
Writeln('Введите число');
Readln(n);
for i:= 1 to n do
a:=a+i;
Writeln('Квадрат суммы этих чисел равен ',sqr(a));
End.
Ответ:
Я думаю, чтоФранция - 25°C.