Var a:array[1..3,1..3] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do begin
read(a[i,j]);
if not odd(a[i,j]) then s+=a[i,j];
end;
writeln(s);
<span>end.</span>
Дискриминант равен квадрату коэффициента при переменной первой степени. При чем здесь "div"? В принципе поиск корней выполнен неправильно
Фото, (gif)ки, э это чёртово правило о длииных ответах
Фиговая фотка нифига не видно