Program rtr1;Uses crt;Var a,b,c,d,di,f,x1,x2:real;Begin Clrscr; Readln(a,b,c,d); f:=0; di:=sqr(2*a*b-2*c*d)-4*(a*a-c*c)*(b*b-d*d); if di>0 then begin x1:=((2*c*d-2*a*b)+sqrt(di))/(2*a*a-2*c*c); x2:=((2*c*d-2*a*b)-sqrt(di))/(2*a*a-2*c*c); if (abs(a*x1+b)=c*x1+d) then f:=f+1; if (abs(a*x2+b)=c*x2+d) then f:=f+1; end else if d=0 then begin x1:=(2*c*d-2*a*b)/(2*a); if (abs(a*x1+b)=c*x1+d)then f:=f+1; end else writeln('Корней нет'); Writeln('Уравнение имеет ',f,' корней ');End.
Program mm; var a:array[1..12] of integer; begin for i:=1 to 12 do begin а[1]:=5; а[2]:=4; а[3]:=-3; а[4]:=1; а[5]:=0; а[6]:=-4; а[7]:=(у тебя не написано); а[8]=25; а[9]=-8; a[10]=-5; а[11]=-17; а[12]=-1; end; writeln('Вот исходный массив'); for i:=1 to 12 do writeln('A[',i,']=',a[i]); for i:=1 to 12 do begin if (A[i]<0) then a[i]:=1; if (a[i]>0) then a[i]:=-5; end; writeln('Вот полученный массив'); for i:=1 to 12 do writeln('A[',i,']=',a[i]); writeln(' Введите 12 чисел'); for i:=1 to 12 do readln(A[i]); (это доп оценка) end.
нешинши сынып кайтып жиберш