надо решить задачу по паскалю) "Чтобы избавиться от простуды необходимо 20 таблеток...

Question

надо решить задачу по паскалю) "Чтобы избавиться от простуды необходимо 20 таблеток колдрекса или 30 таблеток аспирина. Сколько порций эскимо можно купить на эти деньги?"
напишите пожалуйста как составить это в паскале) буду благодарна:)

Answer 1

Цены даны?или самим вписывать?

Comments

самим)

---

вообщем тебе нужно сразу решение или просто подсказать как сделать?если решение,то сделаю так: вводишь сколько стоя 20 таблеток колдрекса или 30 таблеток аспирина и вводишь сколько стоит 1 эскимо,и программа самы высчитывает!

---

program ispolzovanie_div_mod;
var a,b,c,d,e:integer;
begin
writeln('Öåíà êîëäðåêñà çà 20 òàáëåòîê');
readln(a);
writeln('Öåíà ýòîãî àñïèðèíà? çà 30 òàáëåòîê');
readln(b);
writeln('Öåíà çà 1 ýêñêèìî?');
readln(c);{öåíà ýñêèìî}
d := a div c;
e := b div c;
writeln('Âû ìîæåòå êóïèòü ',b,' ïîðöèé ýñêèìo âìåñòî 20 òàáëåòîê êîëäðåêñà èëè ',e,' ïîðöèé ýñêèìî âìåñòî 30 òàáëåòîê àñïèðèíà' );
readln;
end.

---

program ispolzovanie_div_mod;
var a,b,c,d,e:integer;
begin
writeln('за 20 таблеток колдрекса');
readln(a);
writeln('за 30 таблеток аспирина');
readln(b);
writeln('за 1 эскимо');
readln(c);
d := a div c;
e := b div c;
writeln('вы купите',b,' порций вместо 20 колдрекса или ',e,'порций вместо 30 аспирина' );
readln;
end.

---

ого) спасибо огромное) очень помогли)

---

пожалуйста,обращайся если что)