4096*1024*1024*8=3435973868 бит
512*1024*1024*1024*8=35184372088832 бит
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
0.5 кб = 512 байт
1024 символа , закодирован каждый по полбайта
0.5 байт = 4 бита
4 бита = 16 символов максимально возможных в алфавите.
мощность 16 символов следовательно
3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.