<span>аппаратными средствами информатизации</span>
Если длина ребра именно равна 2 (a=2), то решаем так:
begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.
А если нам следует ввести значение a, то решаем так:
var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
1000111001(2)=569(10)=1071(8)=239(16), 1517(10)=10111101101(2)=2755(8)=5ED(16), 11123(8)=4691(10)=1001001010<span>011(2)</span>