Ввести с клавиатуры час суток.Напечатать время суток,утро,день,ночь,.В Pascal.Пожалуйсто помогите
Ввести с клавиатуры час суток.Напечатать время суток,утро,день,ночь,.В Pascal.Пожалуйсто помогите
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net 3.2
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.
ГостьProgram n1;
var c: integer;
begin
readln(c);
case c of
0..5: writeln('ночь');
6..11: writeln('утро');
12..18: writeln('день');
19..24: writeln('вечер')
end;
end.
Не нашли ответ?
Похожие вопросы