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

Тема в разделе "Delphi - FAQ", создана пользователем GeRZog, 25 мар 2009.

Статус темы:
Закрыта.
  1. GeRZog

    GeRZog Гость

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

    BurcevD Гость

    Код (Text):
    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.
     
  3. etc

    etc Гость

    мда...
     
Загрузка...
Похожие Темы - Рещение задачки срачно
  1. Евгений1998
    Ответов:
    2
    Просмотров:
    1.461
  2. archibald
    Ответов:
    0
    Просмотров:
    972
Статус темы:
Закрыта.

Поделиться этой страницей