N=2^8
i=8 бит
<span>I=100*100*8=8000 бит=1000 байт)</span>
<em>а) Поместить2 </em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Убрать2</em>
<em>Поместить2</em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Урать2</em>
<u>б) Поместить2</u>
<u>Ждать</u>
<u>Перевернуть2</u>
<u>Ждать</u>
<u>Убрать2</u>
<u>Поместить2</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать2</u>
Var a, b, c, e, f: integer;
d, x1, x2: real;
begin
write('Введите коэффициент x^2: ');
readln(a);
write('Введите коэффициент x: ');
readln(b);
write('Введите свободный член: ');
readln(c);
d:=b*b-4*a*c;
if (d>=0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln;
writeln('Первый корень: ',x1:4:2);
writeln('Второй корень: ',x2:4:2);
end
else
writeln('Дискриминант < 0');
readln;
end.
1:Это преследуется законом
2:Потому что не проверенные источники
3:Затем чтобы с тобой было приятно общатся
4:Чтобы заново не входить
Земля является уменьшенной моделью.
Удачи......