Составить алгоритм для решения задачи: В кафе продают лимонад по N руб. и мороженое по T...

Question

Составить алгоритм для решения задачи: В кафе продают лимонад по N руб. и мороженое по T руб. Составьте алгоритм, который сообщает "возьмите сдачу", "доплатите еще" или "спасибо за покупку" при оплате покупателем за m лимонадов и R мороженых денег в размере S руб. КуМир (я в нем не шарю((()

Answer 1

Prog test;
var N,T,sum,M,R,m1,r1,ost;
begin 
write('Введите сумму лимонада и мороженного:');
read(N);
read(T);
write('Введите колво лимонадов');
read(M);
write('Введите кол-во мороженных');
read(R);
write('Введите сумму для покупки: ');
read (sum);
m1:=N*M;
r2:=T*R;
while(true)
begin
if(sum< m1+r2) then
write('доплатите ещё');
if (sum>m1+r2) then
ost:=sum-(m1+r2);
write('возмите сдачу', ost);
if(sum= m1+r2) then
write('спасибо за покупку');
end;
end.

Comments

а теперь транслятор в студию плез

---

для КуМир

---

никогда в нем не было, не знаю базовых основ

---

*и тут нахлынула грусть*

---

решение есть, подгони под свою СП, везде одно и тоже почти

---

ну тут я попробывал запустить твою прогу и на турбо и на обычном паскале чет нетак(

---

pascal ABC все компилирует, были ошибку не прогонял компилятором

---

program test;
var N,T,sum,M,R,m1,r1,ost: integer;
begin
write('Введите сумму лимонада и мороженного:');
read(N);
read(T);
write('Введите колво лимонадов');
read(M);
write('Введите кол-во мороженных');
read(R);
write('Введите сумму для покупки: ');
read (sum);
m1:=N*M;
r1:=T*R;
while(false) do
begin
if(sum< m1+r1) then
write('доплатите ещё');
if (sum>m1+r1) then
ost:=sum-(m1+r1);
write('возмите сдачу', ost);
if(sum= m1+r1) then
write('спасибо за покупку');

end;
end.