ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ Нужно подсчитать сумму покупки 14 карандашей по 30 рублей, 10...

Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ
Нужно подсчитать сумму покупки 14 карандашей по 30 рублей, 10 красных ручек по 50 рублей, 9 синих ручек по 50 рублей.
ПРОГРАММА НУЖНА НА ЯЗЫКЕ PASKAL

Comments

Общая сумма или по отдельности? Надо запрашивать количество карандашей и ручек или нет?

---

Общая сумма. Запрашивать кол-во карандашей и ручек надо.

---

Тогда жди, сейчас поправлю.

---

Хорошо.

---

Готово.

Answer 1

Program p1;
var k, r_k, r_s: integer;
    begin
    WriteLn('Сколько было куплено карандашей?');
    ReadLn(k);
    WriteLn('Сколько было куплено красных ручек?');
    ReadLn(r_k);
    WriteLn('Сколько было куплено синих ручек?');
    ReadLn(r_s);
    WriteLn('Общая сумма: ', k*30 + r_k*50 + r_s*50);
end.