Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var m:integer;

Begin

Read(m);

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

if  ((m<=6) and (m<=12))  then writeln(dobroe ytro);

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

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

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

End.

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