Меню сайта

Задача №25

В течениимесяца продавец доставлялна дом молока в день. В марте молоко стоило х руб за литрСпервого апреля цена молока увеличилась до [x+a] руб за литр Сколько надозаплатить продавцу за все доставленное молоко в конце апреля? Кол-во покупаемогомолока осталось прежним.

uses crt-

var march,april,payment:real-

begin-

clrscr-

writeln(‘Введите стоимость отпускаемого молока вмарте’)-

readln(march)-

writeln(‘Введите стоимость отпускаемого молока в апреле’)-

readln(april)-

payment:= march * 4* 31 + april * 4 * 30-

writeln(‘Вы должны заплатить с 1-го марта по 30-еапреля включительно ‘,payment:7:2, ‘ руб.’)

end.

Категория: Линейные программы | Дата: 29.11.12

Меню раздела
Блок