Меню сайта

Задача №24

Вычисление сдачи с покупки музыкального диска.

uses crt-

varr,k,r1,k1,how:real-

begin-

clrscr-

writeln(‘Введите стоимость диска(руб.,коп.) черезEnter’)-

readln(r)-

readln(k)-

writeln(‘Введите размер располагаемой суммы(руб.,коп.)через Enter’)-

readln(r1)-

readln(k1)-

IF r * 100 + k &lt- r1 * 100 + k1 THEN writeln(‘Да,вам хватит денег на покупку’)-

IF r * 100 + k &gt-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.

Категория: Разветвляющиеся программы | Дата: 06.01.13

Меню раздела
Блок