В киоске продаётся газета стоимостью 250 руб и журнал стоимостью 900 руб. Составить...

Question

В киоске продаётся газета стоимостью 250 руб и журнал стоимостью 900 руб. Составить программу которая спрашивает р желании покупателя (купить журнал или газету), принимает деньги и выдаёт на экран сдачу

Answer 1

Var
a,b,r,e:integer;
begin
a:=250;
b:=900;
writeln('Что вы желаете купить:');
writeln('1. Газету');
writeln('2. Журнал');
writeln('3. Газету и журнал');
readln(r);
if r=1 then e:=a
else
if r=2 then e:=b
else
e:=a+b;
writeln('Стоимость ',e,' р');
writeln('Введите деньги');
readln(r);
if r>e then
writeln('Ваша сдача ',r-e,'р')
else
writeln('Денег не хватает');
end.

Comments

Спасибо!!!