1. Для начала, определим ёмкость дискеты в битах.
Это будет
![1,44 * 1024 * 1024 * 8](https://tex.z-dn.net/?f=1%2C44+%2A+1024+%2A+1024+%2A+8)
бит.
2. Если изображение черно-белое, значит 1 пиксель кодируется одним битом (0 - черный, 1 - белый).
Значит, объём одного изображения равен
![1280*1024](https://tex.z-dn.net/?f=1280%2A1024)
бит.
3. Поделим ёмкость дискеты на объём одного изображения и выделим целую часть, это и будет количеством изображений, которые поместятся на дискете:
![\frac{1,44 * 1024 * 1024 * 8}{1280*1024} = 9 \frac{27}{125}](https://tex.z-dn.net/?f=+%5Cfrac%7B1%2C44+%2A+1024+%2A+1024+%2A+8%7D%7B1280%2A1024%7D+%3D+9+%5Cfrac%7B27%7D%7B125%7D+)
Лист защищен без пароля, чтобы случайно не повредить формулы.
Испарение -> облако -> дождь шел? да ->испарение<span>->дождь
нет </span><span>->конец</span>
Трёхзначные - значит
409+419+429+439+449+459+469+479+489+499=4540
Var N1:array[1..10] of integer;
N2:array[1..15] of integer;
R1:array[1..10] of integer;
R2:array[1..15] of integer;
min1, min2, max1, max2, i:integer;
R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
if R1[i]<min1 then
begin
min1:=R1[i];
R1min:=i;
end else
begin
if R1[i]>max1 then
begin
max1:=R1[i];
R1max:=i;
end;
end;
for i:=1 to 15 do
if R2[i]<min2 then
begin
min2:=R2[i];
R2min:=i;
end else
begin
if R2[i]>max2 then
begin
max2:=R2[i];
R2max:=i;
end;
end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.