Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
Мощность алфавита 16, объем одного символа - 4 бита, т.к. 16 = 2^4
Объем 20-ти символов равен 20*4 = 80 бит
80 бит / 8 = 10 байт.
Var a:array[1..3,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin a[i,j]:=random(20)-10; write(a[i,j]:4);end;writeln;end;
for j:=1 to 4 do begin
s:=0;
for i:=1 to 3 do s:=s+a[i,j]; writeln('cумма ',j, ' столбца=',s);end;
<span>end.</span>
Пусть в восьмеричной системе счисления число выглядит как abc₈, а в шестиричной def₆, тогда d=a+2, e=b+2, f=c+2.
Перейдем к записи в расширенном виде.
a×8²+b×8+c = (a+2)×6²+(b+2)×6+(c+2)
64a+8b+c=36a+72+6b+12+c+2
28a+2b=86
14a+b=43 → b=43-14a
Понятно, что a,b,c - это восьмеричные цифры и они должны быть одноразрядными и положительными. Простым перебором устанавливаем, что a=3, b=1.
Тогда 31c₈ = 53f₆
Поскольку f ∈ [0;5] ∩ с ∈ [0;7] ∩ f=c+2, то с ∈ [0;3] и чисел может быть всего <u>четыре</u>: 310₈, 311₈, 312₈, 313₈
Ответ: 4