Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
123456
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
practica 9 ejercicio 2
6
test22
BubbleSor (slimst)
test26
Vremenska prognoza
Урок 2 задача не из учебника1
Homework 1
Урок 2. Функции:
03 ariketa