Объяснение:
Электронные таблицы или табличные процессоры предназначаются для решения задач, данные которых могут быть представлены в виде таблиц. Без электронных таблиц не обходятся бухгалтеры и кладовщики, участники бирж, руководители брокерских контор, банков, финансовые менеджеры. Их пользуются не только в финансовой и учетной деятельности, но и в научной для выполнения математических расчетов. Электронные таблицы предназначены для обработки численных данных, автоматизации рутинных процессов пересчета производных величин в зависимости от изменения исходных данных.
Книга — один из видов печатной продукции: непериодическое издание, состоящее из сброшюрованных или отдельных бумажных листов (страниц) или тетрадей, на которых нанесена типографским или рукописным текст
Ячейка — бокс, релейный шкаф. Ячейка — сейф в банке, сдаваемый клиентам внаём.
Диапазон ячеек – базовое структурное понятие электронной таблицы, определяющее блок ячеек (от правого верхнего до левого нижнего угла прямоугольного блока) или несколько прямоугольных блоков.
Угол - это часть плоскости, ограниченная двумя лучами, выходящими из одной точки.
Точка называется вершиной угла, а лучи - сторонами угла.
Если стороны угла образуют прямую (являются дополнительными лучами), то угол называется развернутым.
Углы измеряются в градусах. Градус - это 1/180 часть развернутого угла.
Виды углов в зависимости от градусной меры:
Если градусная мера угла меньше 90°, то угол острый.
Если градусная мера угла равна 90°, то угол прямой.
Если градусная мера угла больше 90°, но меньше 180°, то угол тупой.
Если градусная мера угла равна 180°, то угол развернутый.
Два угла называются вертикальными, если их стороны являются дополнительными лучами.
Свойство вертикальных углов: вертикальные углы равны.
Два угла называются смежными, если одна сторона у них общая, а две другие являются дополнительными лучами.
Свойство смежных углов: сумма смежных углов равна 180°.
Биссектриса угла - это луч с началом в вершине угла, который делит угол на две равные части.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToReals;
if a.Take(3).Min>2*a[3] then Writeln('YES') else Writeln('NO');
end.
Если нужны именно файлы:
begin
var a:=ReadAllText('input.txt').ToReals;
var s:=a.Take(3).Min>2*a[3] ? 'YES' : 'NO';
WriteAllText('output.txt',s)
end.