1) вывести все числа от a до b, но заранее неизвестно, a> b или a

1) var a,b,r,i: longint; begin readln(a,b); if a> b then begin r: =a; a: =b; b: =r; end; for i: =a to b do writeln(i); end. 2) var a,b,i: longint; begin readln(a,b); for i: =a to b do if i mod 2< > 0 then writeln(i); end. 3) var a,b,i,s,symm: longint; begin readln(a,b); s: =0; symm: =0; for i: =a to b do begin if i mod 2< > 0 then s: =s+i; if i mod 3=0 then symm: =symm+i; end; writeln(s,symm); end. 4) var r,p,a,n,i: longint; begin readln(a,n); r: =n; if n< 0 then r: =-n; p: =1; for i: =1 to r do p: =p*a; if n< 0 then writeln(1/p) else writeln(p); end.

Var   a: integer; begin   read(a);   while(a < > 0) do    begin     write(a mod 10);     a : = a div 10;   end; end.

у семи нянек дитя без глаза.

28 символов * 2 = 56 байт

56 * 8 = 448 бит.

ответ. 448 бит.