Рещение задачки , срачно

  • Автор темы GeRZog
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

GeRZog

#1
ЛЮДИ ПЛИЗ ПОМОГИТЕ С ЗАДАЧЕЙ , ПО Идеи Простая , но я все равно решить не могу!!!!!!!!!!!!!!
В киоске продается газета стоимостью a рублей и журнал стоимостью b рублей. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу.
 
B

BurcevD

#2
Код:
Var a,b:Integer; //Стоимость газеты и журнала
Sum:Integer; //Введенная сумма
JG:String; //Выбор журнала или газеты
Begin
Write('Газета стоит:'); Read(a);
Write('Журнал стоит:'); Read(B);
Repeat
Write('Вы хотите купить (J/G):'); Readln(JG);
Until (JG='J')or(JG='G');
Write('Внесенная сумма:'); Read(Sum);
if JG='J' Then
Begin
If (Sum<b) then Writeln('Денег не хватает на ппокупку журнала') else
If (Sum=B) then Writeln('Без сдачи') else
Writeln('Сдача: ',Sum-B);
End else Begin
If (Sum<a) then Writeln('Денег не хватает на ппокупку газеты') else
If (Sum=a) then Writeln('Без сдачи') else
Writeln('Сдача: ',Sum-a);
End;
End.
 
Статус
Закрыто для дальнейших ответов.