Создайте приложение для вычисления дискриминанта квадратного уравнения и его корней введённым коэффициентам уравнения

var

 sum, a, b, c: real;

begin

 Write('Введите количество масла в кг.: ');

 Read(a);

 Write('Введите количество сметаны в кг.: ');

 Read(b);

 Write('Введите количество сливок в кг.: ');

 Read(c);

 sum := a * 188.5;

 Writeln('За ', a, 'кг. масла, получится: ', sum, 'р.');

 sum := b * 95;

 Writeln('За ', b, 'кг. сметаны, получится: ', sum, 'р.');

 sum := c * 104.5;

 Writeln('За ', c, 'кг. сливок, получится: ', sum, 'р.');

 Writeln('Общая сумма: ', (a * 188.5) + (b * 95) + (104.5), 'р.');

end.

Тестовое решение:

Введите количество масла в кг.: 6

Введите количество сметаны в кг.: 4

Введите количество сливок в кг.: 2

За 6кг. масла, получится: 1131р.

За 4кг. сметаны, получится: 380р.

За 2кг. сливок, получится: 209р.

Общая сумма: 1615.5р.

1. Не запускайте программы, полученные из Интернета или в виде вложения в сообщение электронной почты без проверки на наличие в них вируса.

2. Необходимо проверять все внешние диски на наличие вирусов, прежде чем копировать или открывать содержащиеся на них файлы или выполнять загрузку компьютера с таких дисков.

3. Необходимо установить антивирусную программу и регулярно пользоваться ею для проверки компьютеров.

4. Необходимо регулярно сканировать жесткие диски в поисках вирусов.

5. Создавать надежные пароли, чтобы вирусы не могли легко подобрать пароль и получить разрешения администратора. Регулярное архивирование файлов позволит минимизировать ущерб от вирусной атаки

Объяснение: