Pascal / всего к оплате считается как сумма начисления + пени. Василий намотал 5 кубов горячей воды . 20 кубов холодной воды и 345.2кв/ч электроэнергии . он решил составить программу в paslac. Требования к программе таковы : пользователь вводит с клавиатуры кол-во дней задержки оплаты, вводит процент пенни с суммы начисления и кол-во кубов и кв/ч электроэнергии

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal может выглядеть следующим образом:

program Calculation;
var
delay_days, penalty_percent, hot_water_cubes, cold_water_cubes, electricity_kw: integer;
total_amount, penalty_amount: real;
begin
writeln('Введите количество дней задержки оплаты:');
readln(delay_days);
writeln('Введите процент пени с суммы начисления:');
readln(penalty_percent);
writeln('Введите количество кубов горячей воды:');
readln(hot_water_cubes);
writeln('Введите количество кубов холодной воды:');
readln(cold_water_cubes);
writeln('Введите количество кв/ч электроэнергии:');
readln(electricity_kw);
total_amount := hot_water_cubes + cold_water_cubes + electricity_kw;
penalty_amount := (total_amount * penalty_percent) / 100;
writeln('Сумма начисления:', total_amount:0:2);
writeln('Пени:', penalty_amount:0:2);
writeln('Итоговая сумма к оплате:', total_amount + penalty_amount:0:2);
end.

Эта программа позволит пользователю вводить с клавиатуры все необходимые данные и вычислит итоговую сумму к оплате с учетом задержки оплаты и процента пени.