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

0 голосов
134 просмотров

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

Информатика (44 баллов) | 134 просмотров
Дан 1 ответ
0 голосов

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.<br>только так

(128 баллов)
Похожие задачи