Условие: Предприниматель приобретает товар по оптовой цене партиями по 100 единиц. Затем он этот товар продаёт по розничной цене. Составить программу для определения размера прибыли, которую получит предприниматель в рублях, если продаст весь товар.
Технические условия: Программа должна читать исходные данные из файла input.txt, имеющего такую структуру: - Первая строка содержит число N (N<231) - колличество видов приобретённого товара. - Каждая последующая строка содержит четыре числа, разделённых одним или несколькими пробелами - информацию о товаре: количество единиц приобретённого товара, оптовая цена товара (за 100 единиц товара), розничная цена единицы товара, курс доллара (цена одного доллара в рублях) на момент приобретения товара. Программа должна заносить результат работы в файл output.txt, содержащий единственное вещественное число с двумя знаками дробной части - размер прибыли предпринимателя в рублях.
Решение: {$N+} var f:text; n,i:longint; S:extended; T:Longint; Opt,Rozn,Buks:Real; begin assign(input,'input.txt'); reset(input); readln(n);S:=0; for i:=1 to n do begin read(F,T,Opt,Rozn,Buks); S:=S+T*Rozn-T/100*Opt*Buks; end; assign(output,'Output.txt'); rewrite(output); Writeln(F,S:2:2); end.
