Var x,y,n:real;
begin
readln(x,y,n);
if (x+y)/2<=n then writeln('yes') else writeln ('no')
end.
<span>Грань - это многоугольник, понимаемый как часть плоскости, ограниченная простой замкнутой ломаной линией. </span>
400 мб картинки
16*100*80*2000=256 млн бит=32 млн байт=31250 кбайт=30 мбайт и 530 кбайт
итого
400 мб + 30 мб+530 кбайт = 430 мб и 530 кбайт
на флешку влезет
Const n=10;
var i,p:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=Random(-10,10);
write(a[i],' ');
end;
writeln();
i:=1;
while(i<n) do begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
i+=2;
end;
for i:=1 to n do
write(a[i],' ');
<span>end.</span>
Первое число 455
второе число 85