2 На книжную базу поступили три наименования книг: словари, книги по кулинарии и пособие по вязанию. Они были распределены по трем магазинам: «Книжный мир»: 10400 экземпляров словарей, кулинар-ных книг – 23650 экз., пособий по вязанию 1500 экз.; «Дом книги»: 10300 экземпляров словарей, кулинарных книг – 22950 экз., пособий по вяза-нию1990 экз., «Глобус»: 9100 экземпляров словарей, кулинарных книг –23320 экз., пособий по вязанию 2500 экз. В первом магазине было продано словарей – 8945 экз по цене за 1ед 350 руб, кулинарных книг – 19865 экз. по цене за 1ед 256 руб, пособий по вязанию 843 экз. по цене за 1ед 245 руб; во втором магазине: экземпляров словарей- 9300 по цене за 1ед 360 руб, кулинарных книг – 21900 экз. по цене за 1ед 246 руб, пособий по вязанию 1020 экз по цене за 1ед 195 руб; во третьем магазине: экземпляров словарей- 1200 по цене за 1ед 385 руб, кулинарных книг – 22900 экз. по цене за 1ед 230 руб, пособий по вязанию 1120 экз по цене за 1ед 200 руб.
Требуется:
рассчитать оставшееся количество книг каждого наименования поступивших на книжную базу;
рассчитать на какую сумму было продано каждого вида книг на каждую базу;
найти среднюю сумму продажи;
построить диаграмму по распределению книг в магазинах.
Для ячеек «сумма продажи» назначить следующий формат: если сумма продажи равна максимальной сумме продаж, то содержимое ячейки отображать красным цветом, а если равна минимальной сумме продаж, то содержимое ячейки отображать зеленим цветом.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.