Составьте программу, которая выводит на экран различные в зависимости от введенного времени. договоримся, что утро длится с 8 до 12 часов, день – с 12 до 17 часов, вечер – с 17 до 23 часов и ночь – все остальное время. program privet; var x: real; begin writeln('который час? '); read(x); if then writeln('доброе утро! '); if then writeln('добрый день! '); if then writeln('добрый вечер! '); if then writeln('доброй ночи! ') else writeln('введенное число не является временем ' ) ; end.

program

privet;

var

x:

real;

begin

writeln(

'который час? '); read(x);

if

x>

24 then

 

writeln(

'введенное число не является временем ' )

else

begin

if 

(x> =

8) and (x< 12)  then writeln('доброе утро! ');

if 

(x> =

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

if

(x> =

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

if

(x> =

23) or (x< 8)  then writeln('доброй ночи! ');

end

;

end

.

Const   n = 53; var   x: array[1..n] of integer;   i, t, k, s: integer; begin   randomize;   writeln('элементы массива');   k : = 0; s : = 0;   for i : = 1 to n do   begin       t : = random(56) - 15;       x[i] : = t;       write(t: 4);       if (t < 0) and (t mod 7 = 0) then begin k : = k + 1; s : = s + t end   end;   writeln;   writeln(' найдено элементов- ', k, ', их сумма равна ', s) end. тестовое решение: элементы массива   -8  21 -13    0  -9  28    9  28  23  -2    7  25  26  40 -11    3    8  -6  -1    4  14 -13  10    4  -6    8  19    4  26  33  38  -9  -4  34  36  11    9  -7  21  31  -4 -14 -12  27    7 -12  23  29 -14  22    5  22  40   найдено элементов- 3, их сумма равна -35

16. 4 числа: 1915 – не могло: в порядке неубывания число делится на 1 и 915, 915 – не сумма двух цифр 20 – не могло: не делится на два числа в порядке неубывания, только 2 и 0 101 – не могло: не делится на два числа в порядке неубывания, только 10 и 1 1213 – могло, например, для числа 6667 1312 – не могло: в порядке неубывания число делится на 1 и 312, 312 – не сумма двух цифр 312 – могло, например, для числа 1266 1519 – не могло: в порядке неубывания число делится на 1 и 519 или 15 и 19, 519 и 19 – не сумма двух цифр 112 – могло, например, для числа 1066 1212 – могло, например, для числа 6666   10. дан массив [1, 5, 3, 6, 7, 12, 1, 3, 3, 1].  изначально m = 0, при обходе массива если элемент lose[t] больше 3, то к m прибавляется lose[t]. значит, после выполнения программы на экране будет напечатана сумма элементов массива, больших трёх. эта сумма равна 5 + 6 + 7 + 12 = 30.   9. изначально u = 30. затем для каждого i от 1 до 6 из u вычитается значение i, после цикла u равно 30 - 1 - 2 - 3 - 4 - 5 - 6 = 9. это значение будет выведено на экран.   7. путь димы: с: \музыка\хиты – с: \музыка\хиты\ретро – с: \музыка\хиты – с: \музыка\хиты\лучшие  в последней папке он запустил белые_розы.mp3. полное имя файла состоит из пути к папке и имени файла:   с: \музыка\хиты\лучшие\белые_розы.mp3