Pascal, две задачи

[ole4ka]

Pascal, две задачи

Помогите....
1.В продавца N ящиков, в каждом из которых по В кг бананов. Определить, какой штраф он оплатит комитета по защите прав потребителей, если он продает бананы по С гривен за килограмм и при этом обвешивает покупателей на G г при взвешивании каждого килограмма, а сумма штрафа равняется пятикратному размеру прибыли, полученной за счет обвес покупателей. Составьте программу для определения результата задачи.
2.Відомі годовые оценки ученика из всех учебных предметов. Составить программу для определения, является ли этот ученик "хорошистом" ("хорошист" - это тот ученик, у которого все оценки не ниже "7" и не выше "9").
Задача 1.
Заполнить матрицу размерности 20х20 элементов случайными числами. Строка, номер которого соответствует Вашему варианту отсортировать одним из методов по неспаданням. Результат вывести на экран.

Задача 2.
Заполнить матрицу размерности 20х20 элементов случайными числами. Элементы главной диагонали отсортировать по незростанням.

 

[Vladimir_S]

Pascal, две задачи

Странно. А я насчитал четыре... Причем самая интересная - третья, под названием "Задача 1". Тут нам предоставляется возможность, используя экстрасенсорные способности, угадать номер варианта... А "неспадане" - это возрастание по-русски?

 

[Vladimir_S]

1.В продавца N ящиков, в каждом из которых по В кг бананов. Определить, какой штраф он оплатит комитета по защите прав потребителей, если он продает бананы по С гривен за килограмм и при этом обвешивает покупателей на G г при взвешивании каждого килограмма, а сумма штрафа равняется пятикратному размеру прибыли, полученной за счет обвес покупателей. Составьте программу для определения результата задачи.

VAR
 N,B,C,G:Real;

BEGIN
 Write('Number of boxes = ');
 Readln(N);
 Write('Weight of bananas in each box (kg) = ');
 Readln(B);
 Write('Nominal banana price (UAH/kg) = ');
 Readln(C);
 Write('Seller"s cheat (g/kg) = ');
 Readln(G);
 Writeln('Fine = ',Round(N*B*G/1000*C*5),' UAH');
 Readln
END.