Предмет: Информатика,
автор: s11pkno1
Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае:
1. Величина d является корнем только одного из уравнений ax2 + bx + c = 0 и mx + n = 0
Ответы
Автор ответа:
0
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.
s11pkno1:
Благодарю!!!
Правда, вы только смогли меня направить к этому, а программу я составила иную
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.
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);
Да, ваша программа также правильно работает
Похожие вопросы
Предмет: Другие предметы,
автор: 518т
Предмет: Русский язык,
автор: karina714
Предмет: Қазақ тiлi,
автор: полинаби1992
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: polinakurakina57