Ax²+bx+c=0 пример: 2х²+х-6=0 a=2 b=1 c=-6 1)d(дискриминант)=b²-4*a*c d=(1)²-4*2*(-6)=49> 0=> 2 разных корня °если: d> 0=> 2 разных корня, °если: d< 0=> корней нет °если: d=0=> 2 одинаковых корня 2)x1,2=-b±√d/2*a x1=-1+√49/2*2=-1+7/4=6: 4=3/2=(одна целая,одна вторая)-это запиши в цифрах x2=-1-√49/2*2=-1-7/4=-8/4=-2 ответ: -2; (одна целая,одна вторая) вот и все)
Спасибо
Ответ дал: Гость
program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.
программу проверил все работает
Ответ дал: Гость
program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.
Популярные вопросы