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

Question

Информатика

Машуня

10 февраля, 14:36

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

+3

Ответы (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.