Стоимость покупки

@vovalski@inbox. · Регистрация: 22.09.2009

Author24 — интернет-сервис помощи студентам

Нужно сделать задание а я не бум-бум (((
В работе книжного магазина участвует ESM. Составить программу которая:
1. Запрашивает цену книги
2. Запрашивает сумму которую заплатил покупатель
3. Вычисляет сдачу, если такая имеется
4, Если сумма правильная выдаёт - "Спасибо"
5. Если сумма меньше - выводит уведомление о запросе недостающей суммы
Помогите пожалуйста!

@sheka · 22.09.2009, 21:48

раз "легко", так предоставте свои хоть какие-то наработки (или хотя бы книгу откройте на 2й странице). если таких нет - в Фриланс!!!

@Давид · 22.09.2009, 21:57

Можно так реализовать!

Pascal

Uses crt;
 Var a,b,sd,dop:real;
Begin
clrscr;
 Writeln ('Vvedite stoimostb kHuru ');
 Readln (a);
 Writeln ('Vvedite summu pokypatel9 ');
 Readln (b);
  if b>a then begin
              sd:=b-a;
              Writeln ('Sda4a = ',sd:4:2,'rub');
              end;
  if a>b then begin
              dop:=a-b;
              writeln ('Doplatite ',dop:4:2,'rub');
              end;
  if b=a then writeln ('SPACUBO za POKUPKY ');
Readln
end.

@vovalski@inbox. 0 / 0 / 0 Регистрация: 22.09.2009 Сообщений: 22
		1
	Стоимость покупки 22.09.2009, 21:46. Показов 1874. Ответов 2 Метки нет (Все метки) Нужно сделать задание а я не бум-бум ((( В работе книжного магазина участвует ESM. Составить программу которая: 1. Запрашивает цену книги 2. Запрашивает сумму которую заплатил покупатель 3. Вычисляет сдачу, если такая имеется 4, Если сумма правильная выдаёт - "Спасибо" 5. Если сумма меньше - выводит уведомление о запросе недостающей суммы Помогите пожалуйста! 0

@sheka Босс 161 / 126 / 10 Регистрация: 03.06.2009 Сообщений: 750
	22.09.2009, 21:48	2
	раз "легко", так предоставте свои хоть какие-то наработки (или хотя бы книгу откройте на 2й странице). если таких нет - в Фриланс!!! 0

	22.09.2009, 21:57

Стоимость покупки

Решение