Var
a,b:longint;
begin
readln(a,b);
if sqr(a)>sqr(b) then writeln(a)
else
if sqr(a)<sqr(b) then writeln(b)
else writeln('Квадраты чисел равны')
end.
Readln(m);
rez:=1;
while (i<=m) do
begin
rez:=rez*m;
inc(m);
inc(i);
end;
write(rez);
Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
1. = (C9-$D$6)*$E$6
2. =$C$8*C13*25%
$ - знак абсолютной ссылки, которая при копировании не изменяется.
Относительные ссылки при копировании формул изменяются на основании относительного расположения строк и столбцов. При копировании вверх вниз изменяются номера ячеек. При копировании вправо влево изменяются буквы столбцов.
18 - 15 = 3 6 + 3 = 9
14 - 10 = 4 9 + 4 = 13