Как назовете файл, так он и будет называться. В данном случае имя word_2
Var a,i:integer;
m:array[1..10] of integer;
begin
a:=10;
randomize;
for i:=1 to a do
begin
m[i]:=random(21);
end;
for i:=1 to a do
if (m[i]>5) and (m[i]<15) then
writeln(m[i]);
<span>end. </span>
Дано
N1=256
N2=2 ( цвета черный и белый)
v2=v1-70
Найти v1/v2
V1=a*b*I1 I- глубина цвета
V2=a*b*I2
V1/v2=I1/I2 ( а и b сократится при делении)
Найдем I1 и I2 из формулы Хартли N=2^I
256=2^I I1= 8
2=2^I I2=1
V1/(v1-70)= 8/1
V1/(v1-70)=8 решим уравнение по свойству пропорции
8v1-560=v1
7v1=560
v1=80 байт
Ответ: алгоритм - 12121(но это для нахождения числа 30, потому что число 60 получить невозможно