var
x, y : real;
begin
read (x, y);
if (x > 0) and (y < 0) then writeln ('Yes') else writeln ('No');
end.
Не знаю только, как рассмотреть случай, если одна из координат = 0
var
a, b, c : real;
begin
if (a > b) then
begin
c := a;
a := abs (a + b);
b := sqr (c) - sqr (b);
end
else
begin
c := b;
b := abs (b + a);
a := sqr (c) - sqr (a);
end;
writeln (a, ' ', b);
end,
1) По поводу вопроса изменения при копировании в ячейку:
При относительных ссылках, значение подкорректируется,
<span>при абсолютных (ставится знак доллара перед адресом ячейки) останется как было, а при смешанных наверно там где относительная ссылка, то подкорректируется, а там где абсолютная - то останется тот же адрес.
</span>2-3) <span>В работе с электронными таблицами можно выделить три основных типа данных: числа, текст и формулы.
Это кратко и по сути.
Если нужно подробнее - обращайся)</span>
Ответ: звук как бы.Я не очень знаю
Объяснение: я уже не знаю
1)program
obnulenie;
var
a:array[1..100,1..100] of longint;
n,i,j,m,k,o:longint;
begin
read(n,m);
{}for i:=1 to
n do
for j:=1 to
m do
read(a[i,j]);
for i:=1 to
n do
for j:=1 to
m do
if a[i,j]=0
then for o:=1 to
m do a[i,o]:=0;
for i:=1 to
n do
begin
for j:=1 to
m do
write(a[i,j],'
');
writeln;
end;
end.
2)
<span>program obnulenie;
var a:array[1..100,1..100] of longint;
n,i,j,m,k:longint;
begin
read(n,m); {}
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);</span><span>for i:=1 to n do
begin
for j:=1 to m do
if a[i,j]=0 then begin
for k:=1 to m do
a[i,k]:=0;
end;
end;</span><span>for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');</span>writeln;<span>end;
end.</span> 3)<span>program zamena;
var a:array[1..100,1..100] of longint;
n,i,j,m,k,vr1,x1,x2,y1,y2,max,min:longint;
begin
read(n,m); {}
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
max:=-999999;
min:=999999;
for i:=1 to n do
begin
for j:=1 to m do
begin
if max<a[i,j] then begin max:=a[i,j];x1:=i; y1:=j end;
if min>a[i,j] then begin min:=a[i,j];x2:=i; y2:=j end;
end;
end;</span><span>vr1:=a[x1-1,y1];
a[x1-1,y1]:=a[x1,y1];
a[x1,y1]:=vr1;</span><span>vr1:=a[x2-1,y2];
a[x2-1,y2]:=a[x2,y2];
a[x2,y2]:=vr1;</span><span /><span>
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]);
writeln;
end;
end.</span>
23-10111
09-00001001
01-00000001
,2002-11111010010
2008-11111011000
2017-11111100001