Программа Паскаль ближайшая к дому булочная работает с 7:00 до 19:00 и закрывается на перерыв с 13:00 до 15:00. Хлебный магазин, расположенный дальше, работает с 8:00 до 20:00 и имеет перерыв с 14:00 до 16:00. С 8:00 до 24:00 хлеб можно купить в супермаркете, расположенном дальше, чем хлебный магазин, и работающем без обеда. По времени на часах у пользователя определить, что лучше:
а) сходить в булочную, так как она открыта;
б) дойти до хлебного магазина;
в) съездить в супермаркет;
г) сидеть дома, так как везде закрыто.
Время вводится следующим образом: часы – целая часть числа, минуты – дробная часть числа. Например, 14,25 – 14 часов 25 минут
program hungry;
var
time: real;
begin
write('Который час? ');
readln(time);
if (time < 0) or (time >= 24) or (frac(time) >= 0.6) then
writeln('У кого-то часы барахлят...')
else if (time >= 7) and (time < 13) or (time >= 15) and (time < 19) then
writeln('Отлично, булочная работает!')
else if (time >= 8) and (time < 14) or (time >= 16) and (time < 20) then
writeln('Можно до хлебного магазина дойти.')
else if (time >= 8) and (time < 24) then
writeln('Голод не тетка, придется в супермаркет ехать...')
else
writeln('Извини, друг, но сегодня хлеба не будет, сиди дома!');
end.
var
a: real;
s: string;
begin
write('Введите время: ');
readln(a);
if ((7
else if ((8
else if (8
else s:='сидеть дома, так как везде закрыто';
write(s);
end.