Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
135
program e; var a1,a2,b1,b2,c1,c2,x,y,d,dx,dy:real; begin writeln('введите коэффициенты уравнения: a1,b1,c1,a2,b2,c2'); readln(a1,b1,c1,a2,b2,c2); d := (a1*b2-a2*b1); dx := (c1*b2-c2*b1); dy := (a1*c2-a2*c1); if ( d=0 ) and ( (dx=0) or (dy=0) ) then writeln('бесконечное множество решений') else if ( d<>0 ) and ( (dx=0) or (dy=0) ) then writeln('нет решений') else begin x:=dx/d; y:=dy/d; writeln('x = ', x); writeln('y = ', y); end; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Project Euler 17 : Number letter count (1000)
Sasmandar
test28
the number is (not) prime
Kim
Tri 1.0
Увеличение двоичного числа на 1
Complemento da VS ICC II - 1º Semestre 2017
aqzde
бассейн
Please log in to post a comment.