Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Решить в паскале .Даны уравнения ax+b=0 и cx^2+dx+f=0 проверить является s решением двух этих уравнений .

Ответ оставил Гость

Var
S,a,b,c,d,f:real;
Begin
Write(S = );ReadLn(S);
Write(a = );ReadLn(a);
Write(b = );ReadLn(b);
Write(c = );ReadLn(c);
Write(d = );ReadLn(d);
Write(f = );ReadLn(f);
if (A*S=-B)and(C*S*S+D*S=-F) then Write(S, - решение системы уравнений)
else Write(S, НЕ является решением системы уравнений)
End.