Дано время суток,вывести фразу доброе утро,добрый день,добрый вечер,доброй ночи. Паскаль

Question

Дано время суток,вывести фразу доброе утро,добрый день,добрый вечер,доброй ночи. Паскаль

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

program vv;var v: integer;beginwriteln ('Введите время =');readln (v);if (v>7) and (v<12) then writeln ('Доброе утро');if (v>12) and (v<4) then writeln ('добрый день');if (V>4) and (v<24) then writeln ('добрый вечер')else writeln ('Добрый ночи');end. только так