Напишите пожалуйста программу в паскале, которая ** ввод времени суток выводит...

0 голосов
61 просмотров

Напишите пожалуйста программу в паскале, которая на ввод времени суток выводит соответствующее пожелание доброго утра, доброго дня, доброго вечера или спокойной ночи.


Информатика (35 баллов) | 61 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var m:integer;

Begin

Read(m);

if m>24 then write('takogo ne syschestvyet');

if  ((m<=6) and (m<=12))  then writeln('dobroe ytro');</p>

if ((m>12) and (m<=18))  then writeln('dobruy den');</p>

if ((m>18) and (m<=21))  then writeln('dobruy vecher');</p>

if ((m>21) or (m<6)) then writeln('spokoyniy nochi');</p>

End.

Я проверила . Все работает.

(473 баллов)