Все расписал на изображении.
1Гбайт = 2^30 <span>байт.
128Гбайт = 128 * </span>2^30 <span>байт = 2^7 * 2^30 байт = 2^37 байт = 2^(37+3) бит = 2^40 бит.
16^(2x-1) бит = 2^4(2x-1) бит</span>
2^40= <span><span>2^4(2x-1)
4(2х-1) = 40
8х-4 = 40
8х = 44
х=5,5
</span></span>
Так как число в системе счисления с основанием N содержит 4 цифры, то следует найти такое N, для которого выполняется условие N^3 < 31 < N^4.
2^3 = 8, 2^4 = 16 - не подходит
3^3 = 27, 3^4 = 81 - подходит
31(10) = 1011(3)
1011(3) = 1*3^3 + 1*3^1 + 1 = 27+3+1 = 31(10)
program zagadki2;
var a, b, c, d:string;
label r;
begin
writeln('Привет, я программа, загаывающая загадки');
writeln('Будешь отгадывать ?');
readln(a);
if a = 'да' then writeln('Зимой и летом одним цветом.')
else
begin
writeln('пока');
goto r;
end;
Readln(b);
if b = 'ёлка' then writeln('правильно!')
else
begin
writeln('нет,попробуй ещё раз');
Readln(b);
if b = 'ёлка' then writeln('правильно!!!')
end;
writeln('Сидит красавица в темнице, а коса на улице.');
Readln(c);
if c = 'морковь' then writeln('правильно!')
else
begin
writeln('попробуй ещё раз');
Readln(c);
if c = 'морковь' then writeln('правильно')
end;
writeln('Не лает, не кусает, да в дом не пускает.');
Readln(d);
if d = 'замок' then writeln('правильно')
else
begin
writeln('попробуй ещё раз');
Readln(d);
if d = 'замок' then writeln('правильно');
end;
r:
end.