Пользователь вводит числа до тех пор, пока не введет число 0. Сохраняем их в массив. После этого выводим на экран введенные числа с нечетными номерами: 1-е, 3-е, 5-е и тд НА Pascal

153

164

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

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

спартак37

Информатика

4,6(19 оценок)

Var a, b, c, d: real; begin readln(a, b, c); if a = 0 then begin if b = 0 then writeln('х может быть любым') else writeln('x = ', c / -b); exit; end; d : = (b * b) - 4 * a * c; if d < 0 then begin writeln('комплексные корни'); exit; end; writeln('x1 = ', -b + sqrt(d) / (2 * a)); writeln('x2 = ', -b - sqrt(d) / (2 * a)); end.