Question

Составьте программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. Если сдачи не требуется, печатает на экране «Спасибо». Если денег внесено больше, то печатает «Возьмите сдачу» и указывает сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.

 

 

на паскале

Answer 1

var st,sum:integer;
begin
          writeln('Vvedite stoimostj knig');
          readln(st);
          writeln('Vvedite vnesennuju summu');
          readln(sum);
              if st=sum then writeln('Spasibo')
                             else if sum>st then writeln('Vozjmite sdachu: ',sum-st,' rublei')
                                                   else writeln('Doplatite: ',st-sum,' rublei')
end.