Оставить программу ввода величины времени суток t (0<=t<=24) и выдачи текста: "Вы уже проснулись?" - если t=18 "Как работается?" - в остальных случаях.

Question

Информатика

Всеволодыч

29 марта, 10:29

Оставить программу ввода величины времени суток t (0<=t<=24) и выдачи текста: "Вы уже проснулись?" - если t=18 "Как работается?" - в остальных случаях.

+1

Ответы (2)

Знаете ответ?

Федос · Answer 1

Var

t:integer;

begin

Write ('t=') ; Read (t) ;

case t of

0 ... 9:Writeln ('Вы уже проснулись?') ;

12:Writeln ('Не пора ли обедать?') ;

18 ... 24:Writeln ('Еще не вечер!') ;

else Writeln ('Как работается?')

end

end.

Олюша · Answer 2

Var

t: integer;

begin

readln (t) ;

if t < 10 then print ('Вы уже проснулись?')

else if t = 12 then print ('Не пора ли обедать?')

else if t > = 18 then print ('Еще не вечер!')

else print ('Как работается?')

end.