Ответы на вопрос:
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.
//вторая программа
var
x,x1,x2,y,y1,y2: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
if ((x - x1) * (x - x2) < 0) and ((y - y1) * (y - y2) < 0) then
writeln('точка принадлежит заданной области')
else
writeln('точка не принадлежит заданной области');
end.
Популярно: Информатика
-
сойдет226.12.2022 02:54
-
maя01.09.2022 16:12
-
Xaler22.05.2023 05:10
-
mur18112.01.2021 04:11
-
Даниил570212.08.2022 14:41
-
merinovamilania02.09.2020 23:03
-
krisvll26.04.2020 15:39
-
sdx231221.07.2022 19:58
-
Anansiy28.10.2021 03:45
-
eriknovoselov08.05.2022 03:08