1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

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

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

    GeRZog Гость

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

    BurcevD Гость

    Репутация:
    0
    Код (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 Гость

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

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