Question

Составить программу, которая по введенному времени определяла бы, ночь сейчас или день( считать, что ночные часы с 23 до 7) написать код на языке Паскаль

Answer 1

Ответ:

Pascal

var

 a: integer;

begin

 writeln('Введите время (часы)');

 readln(a);

 if (a >= 7) and (a < 23) then

   writeln('День')

 else

   writeln('Ночь');

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая определяет, ночь ли сейчас, основываясь на введенном времени:

pascalCopy code
program DayOrNight;

var
  Hour: integer;

begin
  write('Введите текущее время (час): ');
  readln(Hour);
  
  if (Hour >= 23) or (Hour < 7) then
    writeln('Сейчас ночь.')
  else
    writeln('Сейчас день.');
end.

Эта программа сначала запрашивает у пользователя ввести текущее время в часах. Затем она использует условный оператор if для проверки, находится ли время в интервале с 23 часов вечера до 7 часов утра. Если время попадает в этот интервал, программа сообщит, что сейчас ночь, в противном случае она скажет, что сейчас день.