Абсолютная адресация указывается знаками доллара и перед номером строки, и перед номером столбца.
Следовательно, $C$7.
3 * 1024 = 3072 байт / 1536 = 2
40 мс * 2 = 80 мс
Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub
Var
f1, f2, i, j: integer;
a, b: array [1..5,1..5] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
f1 := 0;
f2 := 0;
for i := 1 to 5 do
begin
if (i = 3) then
continue
else
inc(f1);
f2 := 0;
for j := 1 to 5 do
if (j = 3) then
continue
else
begin
inc(f2);
b[f1][f2] := a[i][j];
end;
end;
end.
коды.. .
var a,b:char;
begin
writeln('Введите символы');
readln(a,b);
writeln('код 1 числа - ',ord(a));
writeln('код 2 числа - ',ord(b));
if ord(a) < ord(b) then
writeln('a < b')
else if ord(a) > ord(b) then
writeln('b < a')
else writeln('a = b');
readln;
end.