program fantscrin;
var a,c: array [1..1000] of integer;
i,n,s,j:integer;
Begin
write('N = '); readln(n);
s:=0;
for i:=1 to n do
begin
write('c[',i,'] = '); readln(c[i]);
s:=s+c[i];
end;
writeln('S = ', s);
j:=0;
for i:=1 to n do
if c[i] > s / n then
begin
j:= j + 1;
a[j]:= c[i];
end;
for i:=1 to j do
write(a[i], ' ')
End.
Области показаны на приложенных скриншотах.
В примере б) левое и правое неравенство (когда они истинные) дают не пересекающиеся области на плоскости. Левое неравенство- всё, что вне окружности радиусом 3, а правое- всё, что внутри ромба, целиком находящегося внутри вышеупомянутой окружности. Поэтому, всё выражение будет истинным, только если оба неравенства будут ложными (дадут результат false).
<span>КОИ-8 имеет 8 битный вес символа. 160/8=20 символов</span>
12-2
13- E:\Класс7\Физика\Задача5.doc
14- E:\TOM3\Doc3.doc
Def IsPointInCircle(x, y, xc, yc, r):
return (x-xc)*(x-xc)+(y-yc)*(y-yc)<=r*r
x = float(input())
y = float(input())
xc = float(input())
yc = float(input())
r = float(input())
if IsPointInCircle(x, y, xc, yc, r):
print("YES")
else:
print("NO")
Пример:
0.5
0.5
1
1
0.1
NO