Написать программу, которая спрашивает «который час? » и, в зависимости от введенного времени, выводит на экран : «доброе утро», «добрый день», «добрый вечер», «спокойной ночи».
Program z1; var a:real; begin writeln('Который час?'); read(a); if (a>=6) and (a<12) then writeln('Доброе утро') else begin if (a>11) and (a<=16) then writeln('Добрый день') else begin if (a>16) and (a<=22) then writeln('Добрый вечер') else begin if (a>22) or (a<6) then writeln('Спойкойной ночи') end; end; end; end.
var a:real;
begin
writeln('Который час?');
read(a);
if (a>=6) and (a<12) then writeln('Доброе утро') else
begin
if (a>11) and (a<=16) then writeln('Добрый день') else
begin
if (a>16) and (a<=22) then writeln('Добрый вечер') else
begin
if (a>22) or (a<6) then writeln('Спойкойной ночи') end; end; end;
end.