Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение:
1. 256 букв
2. 56 Кбайт
Объяснение:
1.
I = K * i
I = 16 Кбайт = 16 * 1024 = 16384 байт = 16384 * 8 = 131072 бит
K = 8 страниц * 32 строки * 64 буквы = 16384 букв
i = I / K
i = 131072 / 16384 = 8 бит
N = 2^i
N = 2^8 = 256 букв мощность алфавита
2.
N = 2^i
N = 128 букв
i = 7 бит
I = K * i
K = 4 страницы * 64 строки * 256 букв = 65536 букв
I = 65536 * 7 = 458752 бит вес сообщения
458752 бит = 458752 / 8 = 57344 байт
57344 байт = 57344 / 1024 = 56 Кбайт
1 байт = 8 бит
1 Кбайт = 1024 байт