Написать программу для этого алгоритма. 70 .

var a, b, x: real;

begin

    writeln('ax + b = 0');

    write('введите a: ');

    readln(a);

    write('введите b: ');

    readln(b);

    if a < > 0 then

        x: =-b / a

    else

        if b < > 0 then

            writeln('корней нет')

        else

            writeln('любое число');

    writeln('x = ', x);

end.

3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб

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.