Информатика

23/04/2022

Д/з написать доклад

1. Алгоритм, написать пример (заварить чай)
2. Программа паскаль
3. поясните каждую строку

program уравнение;
Var A, B, C, D, X1, X2 : Real;
Begin
Writeln (‘ a,b,c’);
Readln (A,B,C);
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 (‘Дискриминант = ‘,D);
Writeln (‘X1=’, X1, ‘ X2=’,X2)
End;
End.

Срок выполнения до 15.05.2022

Работу направить на электронную почту informatika3103@mail.ru