1 Байт-8
128битов-16
32 байта-256
1 кб-1024
1.5кб-1536
1*10^-1+6*10^-2+4*10^-3
Вроде так записывается,навсякий случай проверь у преподавателя.
Var a: integer;
b: real;
begin
readln (a);
if (a > 9) and (a < 100) and (a mod 2 = 0) then
b:= a/10
else
b:= a + 10;
writeln (b);
end.
Ответ 192 стороны
Объяснение: после каждого шага фигура умножается на 4