144
162
2
//PascalABC.NET 3.1 сборка 1200
begin
var k := 0;
for var i := 132 to 188 do
begin
var n := i;
while n mod 2 = 0 do
n := n div 2;
while n mod 3 = 0 do
n := n div 3;
if n = 1 then begin
k += 1;
writeln(i);
end;
end;
writeln(k);
end.
1) 8 бит это весит обычно 1 символ
2) 70*8*30*5=8400 бит
Бутер
1. Взять доску
2. Взять колбасу
3. Отрезать два кругляша
4. Взять сыр
5. Отрезать один ломтик
6. Взять хлеб
7. Взять масло
8. Намазать масло на хлеб
9. Положить на хлеб с маслом колбаску
10. Положить на хлеб с маслом и колбаской сыр
11. Положить на хлеб с маслом, колбаской и сыром ещё одну колбаску
12. Пожелать себе бон аппети))
СМОТРИТЕ РЕШЕНИЕ НА ПРИКРЕПЛЁННОМ ФАЙЛЕ
Если длина ребра именно равна 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.