Сгенерируйте последовательность четных чисел между a (четное число) и b (a<b)!
в питоне

ответ:

  a, b, c, k : integer;

begin

  write(‘ введите два значения ‘);   readln(a,b);  

  k : = 0; c : = 0;

  while k < > b do begin

      k : = k + 1;   c : = c + a;

  end;

  {c = a * k и k = b, следовательно, c = a * b}

  write(‘ a*b= ‘,c);

объяснение:

70%

[pascal]program uravnenie;

var a,b,c,x1,x2,d,y: integer;

begin

readln(a);

readln(b);

readln(c);

d: =(b*b-4*a*c);

writeln(y=sqrt(d: integer): real);  

x1: =(-b+y)/(2*a);

x2: =(-b-y)/(2*a);

writeln(x1, x2);

readln();

end.

вроде так ошибок нету вроде

4)56мб/с