Вычисление сдачи с покупки музыкального диска — Pascal(Паскаль)

uses crt;

var
  r, k, r1, k1, how: real;

begin;
  clrscr;
  writeln('Введите стоимость диска(руб.,коп.) через Enter');
  readln(r);
  readln(k);
  writeln('Введите размер располагаемой суммы(руб.,коп.) через Enter');
  readln(r1);
  readln(k1);
  IF r * 100 + k < r1 * 100 + k1 THEN
    writeln('Да, вам хватит денег на покупку');
  IF r * 100 + k > r1 * 100 + k1 THEN
  begin;
    how := (r * 100 + k) - (r1 * 100 + k1);
    r := INT(how / 100);
    k := how - INT(how / 100) * 100;
    writeln('Нет, вам не хватит денег на покупку ', r:7:0, ' руб. ',
      k:7:0, ' коп.');
  END;

end.

Leave a Comment

78 + = 86