Де і як вказуються імена змінних та їх типи​

32 - вопроса, 32 - ответа

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

решаем относительно  a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.

a1=8;

a2=a1*10=80;

a3=a2-a1=72;

b1=a2/4=20;

b2=(b1-a1)/6=2;

ответ: a1=8; a2=80; a3=72; b1=20; b2=2