Все решается по формуле Хартли N=2^i, N -это возможное количество, <span>i-количество бит</span>
1. 4=2^i, i=2
2. i=9, N=512
3. 3 бита
4. 3 бита
5. 2^4=16 белых
6. 4 бита (16=2^4), и это любой № вагона или 7, 1, 11, или 16
Var a:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(26);
writeln(a[i]);
if a[i] > 12 then k := k + 1;
end;
writeln('Элементов массива превышающих 12: ',k);
end.
N = 2^i ; 64 = 2^6 ; 6 бит - один символ
M = K * i ; K = 10*32*64 = 20480 ; M = 20480*6=122880 бит/8 = 15360 байт
<span>алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон</span>