1)40*16=640
640 делим на 16 битов =40 Кбайт
Вариант 2)
Var
N:integer;
A,max,min:real;
Begin
Write('N = ');ReadLn(N);
WriteLn('Введите числа');
Read(A);
max:=A;
min:=A;
For N:= 2 to N do
Begin
Read(A);
if A>max then max:=A;
if A<min then min:=A;
End;
WriteLn('Max = ',max);
WriteLn('Min = ',min);
End.
Var x,y,z: real;
t: integer;
begin writeln('введите х и у');
readln(x,y);
z:=sqrt(sqr(x)-sqr(y));
t:=0;
while (z>0,1) do
begin t:=t+1;
z:=0,98*z; {если 2% от изменяющегося расстояния до пола;
если же имеется ввиду 2% от исходного расстояния,
то нужно будет ввести новую переменную
или присвоить исходное значение z, например х,
то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
Формула (оператор) <span>z:=0,98*z; изменится так:
</span> z:=z-x*0,98}
end;
writeln('палка упадет через ', t,' мин.');
end.
Будем рассуждать:
Заяц, Волк и Лиса не были последними. Волк и Ёж не были первыми. Т.е. остаётся два варианта: Заяц и Лиса. Судя по этому можно определить, что Лиса была первой, т.к. Заяц не мог (по моему мнению) ПРИБЕЖАТЬ первым, потому, что он прыгает, а это (по моему мнению) не считается. Поэтому Лиса была первой.