помогите пожалуйста...Напишите программу по которой из текстового файла с именем kvur.txt будут прочитаны три числа: a,b,c - коэ
<span>помогите пожалуйста... Напишите программу по которой из текстового файла с именем kvur.txt будут прочитаны три числа: a,b,c - коэффициенты квадратного уравнения затем будут вычислены корни этого уравнения и выведены на экран и в текстовый файл korni.txt.
Если данное уравнение не имеет корней, выведите число 0. Если уравнение имеет один корень, выведите число 1, а затем этот корень. Если уравнение имеет два корня, выведите число 2, а затем два корня в порядке возрастания. Если уравнение имеет бесконечно много корней, выведите число 3. program gt; var a,b,c,d,x1,x2,s:real;label 1,2; begin read(a,b,c); if ((a=0)and(b=0)and(c<>0)) then writeln(0); if(a=0)and(b=0)and(c=0)then writeln(3); if(a<>0)and(b<>0)and(c<>0)then begin d:=b*b-4*a*c; if (d<0)or((a=0)and(b=0)and(c<>0)) then writeln(0); if d>=0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); if x1=x2 then write(1,' ',x1); if (x1<>x2)and(x1<x2) then write(2,' ',x1,' ',x2); if (x1<>x2)and(x1>x2) then write(2,' ',x2,' ',x1); end; end; if (a=0)and(b<>0)and(c<>0)then begin x1:=-c/b; write(1,' ',x1); end; if (a<>0)and(b=0)and(c<>0)then begin if(-c/a>=0) then begin x2:=sqrt(-c/a); x1:=-sqrt(-c/a); if (x1<>x2)and(x1<x2) then write(2,' ',x1,' ',x2); if (x1<>x2)and(x1>x2) then write(2,' ',x2,' ',x1); end; if(-c/a<0) then writeln(0); end; if (a<>0)and(b<>0)and(c=0)then begin x1:=0; x2:=-b/a; if (x1<>x2)and(x1<x2) then write(2,' ',x1,' ',x2); if (x1<>x2)and(x1>x2) then write(2,' ',x2,' ',x1); end; end.
Так как число ребят, имеющих «тройки» по математике и физике, равно 7, то число учеников, имеющих только две «тройки» - по математике и по физике, равно 7-5=2. Тогда 17-4-5-2=6 учеников имеют две «тройки» - по математике и по русскому языку, а 22-5-2-11=4 ученика только две «тройки» - по физике и по русскому языку. В этом случае без «тройки» учится 40-22-4-6-4=4 ученика. А имеют «тройки» по двум предметам из трех 6+2+4=12 человек.
1024 : 256= 4 (скорость 256 бит/с < 1024бит/с в 4 раза) За одно и то же время можно передать файл размером в 4 раза меньше: 4 Кбайт :4 =1 Кбайт=1024 байта.