Дано натуральное число n. определите, каких цифр в числе больше - чётных или нечётных. (только напишите , понятно и легко)!

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа