Если длина ребра именно равна 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.
40, так как m*n = 20*40, то m= 20, n =40.
<span>begin
var a: integer;
begin
if</span> a mod 2=0 then writeIn('Число является чётным')
else writeIn('Число является нечётным<span>');
end.</span>
Глобальные, натальная , персональные , локальная,кампусная,городская
( WAN , BAN, PAN, LAN ,CAN , MAN)
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := MatrRandom(4, 3, -99, 99);
a.Println(5); Writeln(5 * a.ColCount * '-');
a.Cols.Select(Столбец -> $'{Столбец.Sum,5:d}').JoinIntoString('').Println
end.