Для натуральних чисел а і в (а та в з клавіатури) знайти першу цифру та суму їх цифр; (c ++)

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

формула имеет вид: =b$1*$a2

350*200=70000 пикселей

65кбайт=65*1024=66560 байт=66560*8=532480бит

532480/70000= 7.6 т.е 7 целых бит на пиксель

с 7 бит можно закодировать 2^7=128 цветов 

var a,s,an: real;

i,n: integer;

begin

  read(a,n);

  an: =1;

  for i : = 0 to (n+1) do

      s: =s+an;

      an: =an*(-a);

  end;

  writeln(s);

end.