Var a,b,c,d,x1,x2:real; begin writeln('Введите коэффициент a'); readln(a); writeln('Введите коэффициент b'); readln(b); writeln('Введите коэффициент c'); readln(c); d:=sqr(b)-4*a*c; if d>0 then begin x1:= ((-1)*b+sqrt(d))/(2*a); x2:=((-1)*b-sqrt(d))/(2*a); writeln('x1=',x1,' x2=',x2); end else if d=0 then begin x1:= ((-1)*b)/(2*a); writeln('x=',x1); end else writeln('Корней нет'); end.
Var a,b,c: int64; i,j,k,n,m,r,p,s: integer; begin for i:=1 to 9 do // буква х for j:=1 to 9 do // буква г for k:=1 to 9 do // буква т for n:=0 to 9 do // буква о for m:=0 to 9 do // буква с for r:=0 to 9 do // буква у begin p:=k*k mod 10; a:=i*10000+p*1000+r*100+m*10+k; b:=j*100000+p*10000+n*1000+i*100+n*10+k; c:=p; for s:=1 to 10 do c:=c*10+p; if a*b=c then begin writeln('хруст = ',a); writeln('грохот = ',b); writeln(' = ',c); end; end; end.
begin
writeln('Введите коэффициент a');
readln(a);
writeln('Введите коэффициент b');
readln(b);
writeln('Введите коэффициент c');
readln(c);
d:=sqr(b)-4*a*c;
if d>0 then
begin
x1:= ((-1)*b+sqrt(d))/(2*a);
x2:=((-1)*b-sqrt(d))/(2*a);
writeln('x1=',x1,' x2=',x2);
end
else if d=0 then
begin
x1:= ((-1)*b)/(2*a);
writeln('x=',x1);
end
else writeln('Корней нет');
end.