Программа и пример её работы - в прилагаемом файле.
Семь раз получаем остаток от деления на 10 и делим число на 10, тип числа целый, чтобы при каждом делении было округление
int n = ЧИСЛО;
int a[7];
for (int i = 0; i < 7; ++i) {
a[i] = n % 10;
n /= 10;
}
Const
percent = 13.0;
limit = 250.0;
plan = 180.0;
perv_zapas = 1000.0;
var
year: integer;
zapas, ulov: real;
begin
Writeln('Год Запас рыбы,т. Улов,т');
zapas := perv_zapas;
for year := 1 to 20 do
begin
zapas := zapas * (1 + percent / 100);
if zapas - plan < 250 then ulov := zapas - 250
else ulov := plan;
zapas := zapas - ulov;
if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)
else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')
end
end.
<em><u>Результат выполнения программы:</u></em>
Год Запас рыбы,т. Улов,т
1 950.0 180.0
2 893.5 180.0
3 829.7 180.0
4 757.5 180.0
5 676.0 180.0
6 583.9 180.0
7 479.8 180.0
8 362.1 180.0
9 250.0 159.2 - меньше плана
10 250.0 32.5 - меньше плана
11 250.0 32.5 - меньше плана
12 250.0 32.5 - меньше плана
13 250.0 32.5 - меньше плана
14 250.0 32.5 - меньше плана
15 250.0 32.5 - меньше плана
16 250.0 32.5 - меньше плана
17 250.0 32.5 - меньше плана
18 250.0 32.5 - меньше плана
19 250.0 32.5 - меньше плана
20 250.0 32.5 - меньше плана
2. Шаг 1. Выбор типа диаграммы.
Шаг 2. Задание исходных данных диаграммы.
Шаг 3. Задание параметров диаграммы.
Шаг 4. Размещение диаграммы.
4.Биржевая диаграмма — это диаграмма, специально созданная для работы с финансовыми или научными данными, в которой на каждую точку данных приходится до четырех значений. Эти значения сравниваются со значениями максимума, минимума, открытия и закрытия, используемыми для отображения биржевых данных. В этом типе диаграммы значения открытия и закрытия отображаются с помощью маркеров (обычно это линии или треугольники). В следующем примере значения открытия помечены маркерами слева, а значения закрытия — маркерами справа.
1и3 к сожелению не знаю...