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

Язык: паскаль var t: byte; begin readln (t); if (t< 10) then   writeln ('вы уже проснулись? '); if (t=12) then   writeln ('не пора обедать? '); if (t> =18) then   writeln ('ещё не вечер! ') else   writeln ('как работается? ') end.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.