Составить метод для решения задачки: В кафе продают лимонад по N
Составить метод для решения задачки: В кафе продают лимонад по N руб. и мороженое по T руб. Составьте метод, который извещает "берите сдачу", "доплатите еще" либо "спасибо за покупку" при оплате покупателем за m лимонадов и R мороженых средств в размере S руб. КуМир (я в нем не шарю((()
Задать свой вопрос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(sumlt; m1+r2) then
write('доплатите ещё');
if (sumgt;m1+r2) then
ost:=sum-(m1+r2);
write('возмите сдачу', ost);
if(sum= m1+r2) then
write('спасибо за покупку');
end;
end.
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(sumlt; m1+r2) then
write('доплатите ещё');
if (sumgt;m1+r2) then
ost:=sum-(m1+r2);
write('возмите сдачу', ost);
if(sum= m1+r2) then
write('спасибо за покупку');
end;
end.
Данил Кульбачный
а теперь транслятор в студию плез
Анна Дорри
для КуМир
Коля Стерницкий
никогда в нем не было, не знаю базисных основ
Kurulev Oleg
*и здесь нахлынула грусть*
Наталья
решение есть, подгони под свою СП, везде одно и тоже практически
Никита Бовман
ну здесь я попробывал запустить твою прогу и на турбо и на обыкновенном паскале чет нетак(
Vanek Levshonkov
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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов