Напишите программу в паскале, которая на ввод времени суток выводит соответствующее пожелание доброго утра, доброго дня, доброго вечера или спокойной ночи.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
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.
Я проверила . Все работает.