В таком случае, я 1 и 2 стр сохраняю отдельным текстовым файлом, вырезая их из документа (где не ставлю нумерацию страниц), и распечатываю. А остальную часть нумерую, начиная с третьей. Как-то так, один из примитивных вариантов.
Есть такие массивы (НО ОНИ ЕСТЬ ТОЛЬКО В PASCAL ABC NET), которые называются <em><u>д</u></em><em><u>и</u></em><em><u>н</u></em><em><u>а</u></em><em><u>м</u></em><em><u>и</u></em><em><u>ч</u></em><em><u>е</u></em><em><u>с</u></em><em><u>к</u></em><em><u>и</u></em><em><u>е</u></em>. Это такие массивы, длину которых ты назначаешь сам в теле программы. Здесь тебе нужно использовать именно их, так как ты заранее не знаешь, сколько будет положительных компонентов.
<h3>Пример объявления динамического массива:</h3>
<em>v</em><em>a</em><em>r</em><em> </em><em>a</em><em>:</em><em> </em><em>a</em><em>r</em><em>r</em><em>a</em><em>y</em><em> </em><em>o</em><em>f</em><em> </em><em>i</em><em>n</em><em>t</em><em>e</em><em>g</em><em>e</em><em>r</em><em>;</em><em> </em><em>/</em><em>/</em><em>в</em><em>о</em><em>т</em><em> </em><em>э</em><em>т</em><em>о</em><em> </em><em>д</em><em>о</em><em> </em><em>b</em><em>e</em><em>g</em><em>i</em><em>n</em>
<em>S</em><em>e</em><em>t</em><em>L</em><em>e</em><em>n</em><em>g</em><em>t</em><em>h</em><em>(</em><em>a</em><em>,</em><em> </em><em>b</em><em>)</em><em>;</em><em> </em><em>/</em><em>/</em><em>п</em><em>о</em><em>с</em><em>л</em><em>е</em><em> </em><em>b</em><em>e</em><em>g</em><em>i</em><em>n</em><em>,</em><em> </em><em>г</em><em>д</em><em>е</em><em> </em><em>b</em><em> </em><em>-</em><em> </em><em>количество элементов массива</em>
Далее работаешь как с обычным массивом.
Ответ:подставь под формулу ax²+bx+c=0
D=b²-4*a*c=(корень числа)
x1=-b+√D/2*a
x2=-b-√D/2*a
Объяснение:
в Windows10 это обычный калькулятор.
Дальше в приложение подписаны цифры.
1 - выбор режима. Нам нужен "программист".
2- число, которое нам нужно в шестнадцатеричной системе.
3- число в десятеричной системе.
где цифра 3 есть ещё варианты для быстрого перевода из одной системы в другую:
Двоичная (bin)
Восьмеричная (oct)
Десятичная (dec)
Шестнадцатеричная (hex)
Program qw;
uses crt;
Type
Atlas=Record
country,capital:string;
area,people:real;
end;
ps=File of atlas;
Var f:ps;
z,t:atlas;
Begin
assign(f,'1.dat');
rewrite(f);
z.country:='Латвия'; z.area:=67.7;
z.people:=2.6; z.capital:='Рига';
write(f,z);
z.country:='Литва'; z.area:=65.2;
z.people:=3.4; z.capital:='Вильнюс';
write(f,z);
z.country:='Польша'; z.area:=313;
z.people:=34.8; z.capital:='Варшава';
write(f,z);
z.country:='Украина'; z.area:=603.7;
z.people:=50; z.capital:='Киев';
write(f,z);
z.country:='Россия'; z.area:=17075.4;
z.people:=139; z.capital:='Москва';
write(f,z);
Close(f);
assign(f,'1.dat');
reset(f);
read(f,t);
while not(eof(f)) do
begin
read(f,z);
if t.people/t.area < z.people/z.area then t:=z;
end;
close(f);
writeln('Cтранa с наибольшей плотностью населения:');
writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.