Регистрация
polinafaber
07.08.2022 09:05
Информатика
Есть ответ 👍

Составьте блок схему и дано для программы uses crt; var a,b,c,d,x1,x2: real; begin {вводим значения a, b и c} clrscr; write('wwedite a: '); readln(a); write('wwedite b: '); readln(b); write('wwedite c: '); readln(c); {вычисляем дискриминант} d: = b*b - 4*a*c; {если дискриминант больше 0, то вычисляем корни и выводим на экран} if d > 0 then begin x1: = (b - sqrt(d))/(2*a); x2: = (-b - sqrt(d))/(2*a); writeln('x1 = ',x1: 0: 4); writeln('x2 = ',x2: 0: 4); end; {если дискриминант равен 0, то вычисляем один корень и выводим на экран} if d = 0 then begin x1: = -(b/(2*a)); writeln('koren = ',x1: 0: 4); end; {если дискриминант меньше 0, то выводим сообщение} if d < 0 then begin writeln('korney net'); end; readln; end.

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

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

pughluy
pughluy
4,8(22 оценок)
Var a, b, c, n : integer;   procedure max(a,b: integer; var c : integer);   begin      if a> b then c: =a else c: =b;   end; begin     read (a,b,c);     max(a,b,a);     max(a,c,a);     write (a); end.

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