написать программу в pascal

[gans2991]

помогите кто может пожалуйста нужно написать прогарммы по вот этим вопросам просто курсовая горит а я прогулял пары(((

1.составьте программудля вычисления кол-ва теплоты полученной при сгорании М г керосина,если его теплота сгорания q

2.известна сумма денегимеющаяся у покупателя и стоимость одной единицы товара.Сколько единиц товара сможет купить покупатель и какова его сдача?

[Ромиk]

задача 2

program money;

var
             n , i : LongInt; { н это денюжки,  ай это стоимость }
begin
             ReadLn (n ,i);
             WriteLn (n div i, ' 'm n mod i) {выводим сумму и сдачу}
end.

[Ромиk]

сори 8 класс теплоту згорания не проходили))

и негуляй на парах))

[Ромиk]

о нашел формулу, только она в кг а у тебя г, предется переводить((

program Q;

var   
              q : LongInt;
              M : ReadL;
begin
             ReadLn (m, q);
             m := m / 1000;
             WriteLn (m * q : 2 : 2)
end.

кажись так)