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

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

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

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

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) dobeginif(sum< m1+r1) thenwrite('доплатите ещё');if (sum>m1+r1) thenost:=sum-(m1+r1);write('возмите сдачу', ost);if(sum= m1+r1) thenwrite('спасибо за покупку');end;end.

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)beginif(sum< m1+r2) thenwrite('доплатите ещё');if (sum>m1+r2) thenost:=sum-(m1+r2);write('возмите сдачу', ost);if(sum= m1+r2) thenwrite('спасибо за покупку');end;end.