Написать программу, которая требует ввода времени дня и, в зависимости от введённого значения, желает доброго утра, доброго дня, доброго вечера или спокойной ночи. среда програмирования: pascal abc.net
Program blablsbls; var time: integer; begin writeln('Введите текущий час!') readln(time); if time >= 7 and time < 11 then writeln('Доброе утро!'); if time >= 11 and time < 18 then writeln('Добрый день!'); if time >= 18 and time < 24 then writeln('Добрый вечер!'); if time >= 0 and time < 7 then writeln('Спокойной ночи!'); end.
Как-то так, если мне память на счет синтаксиса не изменяет.
var
time: integer;
begin
writeln('Введите текущий час!')
readln(time);
if time >= 7 and time < 11 then writeln('Доброе утро!');
if time >= 11 and time < 18 then writeln('Добрый день!');
if time >= 18 and time < 24 then writeln('Добрый вечер!');
if time >= 0 and time < 7 then writeln('Спокойной ночи!');
end.
Как-то так, если мне память на счет синтаксиса не изменяет.