Оформите таблицу, в которую внесена раскладка продуктов на одну порцию, чтобы можно было, введя общее число порций, получить необходимое количество продуктов в НОВОМ EXCEL

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.

Решение перебором АДЛТДТАТ

Объяснение:

Для начала можно понять, что первая точка и продолжение подходит только для буквы А и в итоге остаётся: -...-..--..-.--, дальше у нас 2 варианта:

1) АД.-..--..-.-- >> 1 - АДА..--..-.-- 2 - АДЛ--..-.--

2)АТ...-..--..-.-- >> АТЖ..--..-.--

Продолжаем перебирать:

1)  АДА..--..-.--  больше нельзя продолжить т.к букв из 2 точек вначале нету.

2) АДЛ--..-.--  >>   АДЛТ-..-.--  >> 1)АДЛТД-.-- 2)АДЛТТ..-.--

3) АТЖ..--..-.--  >> нельзя продолжить из за двух точек.

Продолжаем:

1)АДЛТД-.-- >> АДЛТДТАТ - это ответ

2)АДЛТТ..-.-- нельзя продолжить из за двух точек.