По введенному возрасту человека определить, может ли он получить паспорт. Задача в паскаль.

var n:integer;

begin

 writeln('Введите ваш возраст.');

 readln(n);

 if n >= 14 then

 begin

    writeln('Вы можете получить паспорт.');

    end

    else

      begin

    writeln('Вы не можете получить паспорт, вам еще не исполнилось 14 лет.');

 end;

end.

Таблица умножения. Со сложением, надеюсь, сама справишься, там легко
_ | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | A | B
1 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | A | B
2 | 2 | 4 | 6 | 8 | A |10|12|14|16| 18|1A
3 | 3 | 6 | 9 |10| 13|16|19|20|23| 26|29
4 | 4 | 8 |10|14| 18|20|24|28|30| 34|38
5 | 5 | A| 13|18|21 |26|2B|34|39|42|47
6 | 6 |10|16| 20|26|30| 36|40|46|50|56
7 | 7 |12|19| 24|2B|36| 41|48|53|5A|65
8 | 8 |14|20| 28|34| 40|48| 54|60|68|74
9 | 9 |16|23|30 |39| 46|53| 60|69|76|83
A | A|18|26| 34|42| 50|5A|68|76|84|92
B | B|1A|29|38|47| 56| 65|74|83|92|A1

Нужно выпустить:

конфеты «Гвоздика» = 190,1 кг

«Романтика»  = 195,5 кг

«Карнавал» = 75,3 кг

,чтобы доход фабрики была наибольший = 86137,5   руб

Объяснение:

1) Составим таблицу с данными в Эксель (рисунок "4.png") и сразу граммы переведем в кг в компонентах, поделив на 1000.

2) Создадим таблицу с переменными Х1,Х2,Х3 (килограммов конфет каждого сорта) и оставляем их пустыми.

3) Напишем формулу целевой функции F(x) = X1*P1+X2*P2+X3*P3

Р - цена

F(x) = X1*180+X2*200+X3*170 - стремится на макс прибыль

в Экселе: F(х)=СУММПРОИЗВ(Х1:Х3;Р1:Р3).

4) Существуют ограничения на каждый компонент конфет в виде определенного кол-ва запаса на складе, т.е. составим уравнения:

Какао: X1*0,31+X2*0,255+X3*0,215 <=  125

Сахар: X1*0,1+X2*0,07+X3*0,15  <=  44

Наполнитель: X1*0,09+X2*0,175+X3*0,135  <=  61,5

А так же не стоит забывать про ограничение, переменные не должны быть отрицательными числами (т. е. мы не можем произвести в минус продукцию). Данное условие может быть поставлено автоматически в "Поиск решения", просто поставив галочку на "Сделать переменные без ограничений неотрицательными". (рисунок "6.png")

5) Переходим к "Поиск решения".

Встаем на ячейку с целевой функцией и переходим на вкладку "Данные" и в самом правом углу будет находиться"Поиск решения".(рисунок "5.png")

Далее заполняем поля:

Оптимизировать цел. функцию = ячейка, где целевая функция

До: в нашей задаче необходимо "Максимум"

Изменяя ячейки переменных: выделить ячейки, которые являются переменными

В соответствии с ограничениями: вводим все ограничения, которые выше

Не забываем про галку из пункта 4.

Метод решения: Поиск решения лин. задач симплекс-методом

Далее жмем Найти решение - Ок. (рисунок "6.png")