Program n1;
var: a,b,c,d, n, m, s: integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
readln(a); //1й числитель//
readln(b); //1й знаменатель//
readln(c); //2й числитель//
readln(d); //2й знаменатель//
n:=a*d+c*b;
m:=b*d;
s:=nod(n,m);
n:=n div s;
m:= m div s;
writeln(n,'/',m);
end.
Ячейка B5 - это второй столбец, пятая строка.
в задании ваша формула $B$-D$4 записана неверно. должно быть, например $B$3-D$4.
при копировании формулы $B$3-D$4 в ячейку Е10
$B$3 останется тем значением, потому зафиксированы символом $ и строка и столбец ячейки.
в D$4 изменится только столбец D, он четвертый по счету, на два столбца больше чем B, значение строки останется 4.
Тогда при копировании формула будет: $B$3-G$4
$B$3-E$4 - зафиксировано
$3 - зафиксировано
$4 - зафиксировано
G - на 2 столбца больше E будет столбец G
--
надеюсь понятно объяснила)
Const
N = 20;
var
a: array [1..N] of integer;
k: integer;
begin
k := 0;
for var i := 1 to N do
begin
a[i] := Random(41) - 20;
if a[i] < 0 then k := k + 1;
write(a[i]:4);
end;
writeln;
writeln('Отицательных: ', k);
end.
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.