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>
Объясню так, чтобы разобрался.
Итак, каждый символ в документе .txt - 1 бит.
=> модем = 5 бит.
Это первое, т.е. информационный объем равен 5/8 байт.
С диском то же самое.
Объем файла - 5 бит.
Тем что там запрос, а там вопрос,ооочень глупо)
1)MMСССXXIII, MDCCLXXXVI,MCMXLIX и MMMCDXCIX