Var x,y,n:real;
begin
readln(x,y,n);
if (x+y)/2<=n then writeln('yes') else writeln ('no')
end.
Знакомство с исходными данными Создание таблиц и связей с ними Подготовка запросов для анализа данных
Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>
Система - это объект,состоящий из взаимосвязанных элементов и существующих как одно целое