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. Создавать надежные пароли, чтобы вирусы не могли легко подобрать пароль и получить разрешения администратора. Регулярное архивирование файлов позволит минимизировать ущерб от вирусной атаки
Объяснение:
