Составьте условие для условного оператора в программе, которая выводит на экран в зависимости от времени суток. пусть с 8 до 12 будет утро.с 12 до 17 день, с 17 до 23 вечер, с 23 и ост. ночь

var

  time: 0..23; //сколько сейчас часов

 

begin

  writeln('введите сколько сейчас часов');

  readln(time);

  if (time > = 8) and (time < 12) then writeln('доброе утро! ');

  if (time > = 12) and (time < 17) then writeln('добрый день! ');

  if (time > = 17) and (time < 23) then writeln('добрый вечер! ');

  if (time = 23) or ((time > = 0) and (time < 8)) then writeln('доброй ночи! ');

end.

Var i,j,k: integer;     a: set of integer; begin   i: =3; a: =[];   repeat     k: =0;     for j: =2 to trunc(sqrt(i))+1 do     if (i mod j)=0 then     begin       k: =1;       break;     end;       if k=0 then a: =a+[i];     i: =i+4;   until i> 256;   writeln(a); end. 83 79 167 163 251 71 67 151 239 59 139 227 47 223 43131 127 211 31 23 199 19 107 103 191 11 7 3 179 

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var s: set of integer: =[];   for var i: =1 to 254 do begin       var flag: =true;       var j: =2;       var r: =round(sqrt(i));       while flag and (j< =r) do           if i mod j = 0 then flag: =false           else j+=1;       if flag then           if i mod 4=3 then s+=[i]       end;       foreach var x in s do print(x); end. результат 83 79 167 163 251 71 67 151 239 59 139 227 47 223 43 131 127 211 31 23 199 19 107 103 191 11 7 3 179