Определить, сколько надо заплатить продавцу за доставленное молоко в конце апреля — Pascal(Паскаль)

В течении месяца продавец доставлялна дом 4 л молока в день. В марте молоко стоило х руб за литр С первого апреля цена молока увеличилась до [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.

Похожие записи/страницы:

Leave a Comment

3 + 1 =