2 в 17 бит - 2^4(степени) Кб
2 в 13 бит - 2^0 Кб - 0
2 в 16 бит - 2^3 Кб
2 в 15 бит - 2^2 Кб
2 в 14 бит - 2^1 Кб - 2 Кб
1/4 Кб - 2048 бит
2 в 28 бит - 2^5 Мб
в 1/2 Кб - 512 или 2^9 байт
в 4096 бит - 1/2 Кб
в 3 Гб - 3072 Мб
Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр
Останется точно такой же круг, ничего не должно измениться.
(но это не точно)