Так небольшой экскурс:
1 вводим правильное слово (которое надо загадать).
2 вылезает предложение о догадке, если предположение верное вылезает соответствующее окно, программа завершается. Если же нет, то появляется подсказка.
Ответ В:
t = y = 5
y = 11mod5 = 1
x = t = 5
y = 1 + 2 * 5 = 11
Var s:string;
i,ser,p2,c:integer;
begin
readln(s);
i:=length(s);
ser:= round(i/2);
p2:=ser+1;
for c:=p2 to i do
write (s[c]);
for c:=1 to ser do
write (s[c])
end.
4 Кбайта = 2^2 Кбайта = 2^2 * 1024 байт = 2^2 * 2^10 байт = 2^12 байт = 2^12 * 8 бит = 2^12 * 2^3 бит = 2^15 бит