<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:int64;
Read(n);
var s:='';
var c:=Ord('0');
while n>0 do begin
s:=Chr(c+n mod 2)+s;
n:=n shr 1
end;
Writeln(s,'(2)')
end.
<u>Пример</u>
24523
101111111001011(2)
<span>var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 3 = 0 then s:=s+i;
writeln('s = ',s);
end<span>.
Результат:
</span><span>s = 1683</span></span>
<span>"мклкмнонопрост" - 14 символов
Нужно умножить 14 * x
x - размер одного символа. Должен быть указан в задаче</span>
Смотря какой размер открываемой страницы, чаще всего это от 1 до 7 Мб