Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO
1. планета Земля наряду с другими планетами, вращающимися вокруг Солнца, входит в систему "Солнечная система"
2. В систему "Земля" входят такие подсистемы, как, например, гидросфера Земли, биосфера Земли, атмосфера Земли
А) (п ^ в ^ с)-><span>ж
б)(т(отр.) v д(отр.)^ л)-></span><span>л(отр)
-> если что, это стрелка
</span>
Const
U=1000;
type:
Mas= array [1..U] of integer;
var
a: Mas;
i,j,k,n: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if a[i]=a[j] then k:=k+1;
end;
write(k,' ');
end;
readln;
readln
end.
Если понравилось поставь лучшее решение!
Спасибо!