Mavekus
4 год назад
ввести с клавиатуры час суток.Напечатать время суток,утро,день,ночь,.В Pascal.Пожалуйсто Пожалуйста посчитайте
ОТВЕТЫ
Byrd Michael
Oct 24, 2020
//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.
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.
391
Смежные вопросы:
