Задание:
Задание Определить, изделия какой из двух групп товаров выгоднее сшить из одного рулона ткани, если известны: расход ткани на каждое изделие и ценаготового изделия, количество метров в рулоне. Помогите, нужно написать программу решения этой задачи в Паскале
Решение:
var r1, r2, c1, c2, n, v1, v2: real; begin write ('Введите расход ткани первого изделия '); readln (r1); write ('Введите стоимость первого издеия '); readln (c1); write ('Введите расход ткани второго изделия '); readln (r2); write ('Введите стоимость второго издеия '); readln (c2); write ('Введите длину рулона ткани '); readln (n); v1: =Trunc (n / r1)*c1; v2: =Trunc (n / r2)*c2; if v1 > v2 then writeln ('Выгодней производить первое изделие') else writeln ('Выгодней производить второе изделие'); end.
Знаете другой ответ?