На один символ отводится 1 байт
30 строк по 70 символов - 2100 символов
5 страниц-это 10500 символов
так что ответ 10500 байт
1833 будет <span>110001 111000 110011 110011
-1833 будет </span><span>101101 110001 111000 110011 110011
</span>
Сыр - сор.................................................
У тебя запятые в скобках немного не на местах стоят
program pr;var m:string;beginread(m);writeln('Мой повелитель', ' ', m);end.
Если введёшь с всё имя, то всё будет стоять на месте.
Var q,i,s:integer;
begin
readln(q);
s:=0;
i:=0;
while s<q do
begin
i:=i+1;
s:=s+i;
end;
if s=q then writeln('Страница = ',i+1)
else writeln('Ошибка ввода');
end.
Пример:
5
<span>Страница = 6</span>