Составить программу, печатающую значение TRUE, если указанное высказывание является...

Question

Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае:
1. Величина d является корнем только одного из уравнений ax2 + bx + c = 0 и mx + n = 0

Answer 1

Var a,b,c,m,n,d: integer; begin readln(d); readln(a,b,c,m,n); if (a*d*d+b*d+c=0) or (m*d+n=0) then writeln("TRUE") else writeln("FALSE"); end.

Comments

Благодарю!!!

---

Правда, вы только смогли меня направить к этому, а программу я составила иную

---

Var
a, b, c, m, n, d: integer;
L: boolean;
begin
writeln('a');
read(a);
writeln('b');
read(b);
writeln('c');
read(c);
writeln('m');
read(m);
writeln('n');
read(n);
writeln('d');
read(d);
L:= (a*d*d+b*d+c=0) or (m*d+n=0)
End.

---

Пропущена строчка writeln(L);

---

Да, ваша программа также правильно работает