20 ! составить программу на языке с++: 1. описать структуру с именем tovar, которая содержит следующие поля: - name - название товара; - cost_z - цена закупки товара; - cost_p - цена продукции. - quantity -количество единиц товара; - pributok - прибыль. 2. написать программу, которая использует данную структуру и выполняет следующие действия: - вводит из текстового файла sklad.dat список книг, согласно структуры, и выводит его на экран, используя элемент список; - вычисляет прибыль по каждому товару; - добавляет в начало списка n новых товаров; - удаляет товар, который приносит прибыль; - с вновь списка записать в двоичный файл sklad.sol все товары, которые имеют наибольшую прибыль. 3. написать программу, которая считывает из двоичного файла sklad_n.dat, данные обо всех товарах и записывает в файл tovar.dat товар, цена которого превышает среднюю цену товара .
program raf105;
var a,b,c:integer;
begin
write('Введите 3 числа: ');
readln(a,b,c);
if (a<b) and (a<c)
then writeln('Произведение 2 наибольших чисел: ',b*c);
if (b<a) and (b<c)
then writeln('Произведение 2 наибольших чисел: ',a*c);
if (c<b) and (c<a)
then writeln('Произведение 2 наибольших чисел: ',b*a);
end.
2.а)program raf105;
var a,i,b:integer;
begin
write('Введите число: ');
readln(a);
for i:=1 to a do
if ((a mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей введённого числа: ',b);
end.
б)program raf105;
var a,a2,i,j,b:integer;
begin
write('Введите меньшее число: ');
readln(a);
write('Введите большее число: ');
readln(a2);
for j:=a to a2 do
begin
for i:=1 to j do
if ((j mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей числа ',j,' равна: ',b);
b:= 0;
end;
end.
Язык программирования PascalABC