Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
Урок 4 задача 6
BubbleSort (standaard)
nomer6
6
Вычисление площади фигуры
hi
1101010
111
Sum of array
Tinh tong