Прошу помогите!!!
Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц – В рублей за минуту, а разговоры сверх установленной нормы оплачиваются из расчета С рублей за минуту. Требуется написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.
Var a,d:integer; b,c,p:real;
begin
write(A=);readln(a);
write(B=);readln(b);
write(C=);readln(c);
write(Разговоров за месяц: );readln(d);
if d<=a then p:=b*d else p:=b*a+c*(d-a);
writeln(Плата за телефон=,p:5:2);
end.
Пример:
A=20
B=1.70
C=1.90
Разговоров за месяц: 25
Плата за телефон=43.50
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
