Информатика: (❁´◡`❁)(● ◡ ●)(ˉ﹃ˉ)^_^§(*￣▽￣*)§＞︿＜(* ￣︿￣)(＃°Д°)

zaporozkayaoks

23.04.2021 00:27

Информатика

Есть ответ 👍

(❁´◡`❁)(●'◡'●)(ˉ﹃ˉ)^_^§(￣▽￣)§＞︿＜(* ￣︿￣)(＃°Д°)

273

473

Посмотреть ответы 2

Ответы на вопрос:

niki189

Информатика

4,5(16 оценок)

согласна

Объяснение:

tori0077

Информатика

4,4(49 оценок)

Как и сказал, смог только первый. для начала нужно ввести числа квадратного уравнения в строку. то есть, числа вместо a, b и c. а потом надо ввести в строку число "х", чтобы проверить его на наличие решения. вот сам код: program name; var a, b, c, d, x1, x2, x3: real; begin writeln('введите коэффициенты квадратного уравнения') ; readln(a, b, c); d: =sqr(b) - (4*a*c); x1: = (-b-sqrt(d)) / 2*a; x2: = (-b+sqrt(d)) / 2*a; writeln('введите число х, чтобы проверить, является ли оно корнем уравнения') ; readln(x3); if x3 = x1 then writeln('число ', x3, ' является корнем уравнения.') else if x3 = x2 then writeln('число ', x3, ' является корнем уравнения.') else writeln('число ', x3, ' не является корнем уравнения.') ; end.