Var x,y,c,k,i,a,b:integer;
begin
readln(x,y,a,b);
If (x mod 2=0) or (y mod 2=0) then
c:=(x+y) div 2
else
c:=x mod y;
For i:=1 to 15 do
k:=k+i;
While x<=100 do
x:=x*2;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln(c,' ',k,' ',x,' ',a,' ',b);
end.
На Java
http://pastebin.com/SbfSZLFK
ввод - 1234567890123456
вывод - 66
<span>var n, sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
sum := sum + n mod 10;
n := n div 10
end;
writeln(sum);
end.</span>
21*24*12=6048 - всего символов.
6048*16=96768 бит.
Ответ: 96768 бит.