Прошу помогите!!!Услуги телефонной сети оплачиваются по следующему правилу: за дискуссии до

Прошу помогите!!!
Услуги телефонной сети оплачиваются по последующему правилу: за дискуссии до А минут в месяц В рублей за минутку, а дискуссии сверх установленной нормы оплачиваются из расчета С рублей за минутку. Требуется написать программку, вычисляющую плату за пользование телефоном для введенного медли дискуссий за месяц.

Задать свой вопрос
1 ответ
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 dlt;=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
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт