Умоляю люди не проходите мимо умоляю Пользуясь графиком изменения работо найдите истинные высказывания:
1)подъем работо начинается в 8 ч;
2)утомление длится с 12 до 14 ч;
3)вечером работо выше, чем утром;
4)наибольшая работо с 10 до 12 часов утра;
5)работо резко падает в 21 ч;
6)в 19 часов работо низкая;
7)наивысшая работо в 17 часов;
8)днем самая низкая работо в 15 ч;
9)в день у человека два периода наивысшей работо с 8 утра и до 13 ч 30 мин, а также с 16 ч и до 20 ч;
10)начинать уроки
надо в 7 утра;
11)выполнять домашнее задание лучше всего с 15 ч до 17 ч
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует