в школьной столовой в продаже имеются шоколадки и сок, за них можно расплатиться только картой питания. карту необходимо пополнять если на ее счету остается меньше 30 руб, если на карте меньше 40 рублей, то родители получают об этом уведомление. исходная сумма на карте неизвестна, стоимость шоколадки 45 руб, стоимость сока 56 руб, карта блокируется если остаток меньше 30 руб. Напишите программу которая Выводит на экран фразу о необходимости пополнить карту
20 баллов
Answers & Comments
Verified answer
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var answer := 1;
var sum := Random(100, 500);
repeat
if sum > 30 then
begin
if Random(100) mod 2 = 0 then begin
PrintLn('[Куплена шоколадка]');
sum -= 45;
end
else begin
PrintLn('[Куплен сок]');
sum -= 56;
end;
if sum < 40 then begin
answer := ReadInteger('На карте меньше 40! 1-Пополнить на 300р; 0-Пропустить');
if answer > 0 then sum += 300;
end
end;
if sum <= 30 then
begin
answer := ReadInteger('Карта заблокирована!!! 1-Пополнить на 300р; 0-Пусть голодает');
if answer > 0 then sum += 300;
end;
Sleep(200);
until (answer = 0) and (sum <= 30)
end.