Регистрация
Аринаqwe
10.04.2020 05:53
Информатика
Есть ответ 👍

23 вариант не паскаль через с++ блок схема 1,2,3

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

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

ryzik1988
ryzik1988
4,4(58 оценок)
Var a, b, c, d, x, x1, x2 : real; begin writeln ('введите коэффициенты уравнения (a, b, c) '); readln(a,b,c); if a=0 then if b=0 then if c=0 then writeln('x - любое число') else writeln('корней нет! ') else begin x: =-c/b; writeln('x=',x: 8: 3); end else begin d: =b*b-4*a*c; if d< 0 then writeln ('корней нет! ') else begin x1: =(-b+sqrt(d))/2/a; x2: =(-b-sqrt(d))/2/a; writeln ('x1=', x1: 8: 3, ' x2=',x2: 8: 3); end; end; end.

Популярно: Информатика