Напишите программу, которая в последовательности естественных чисел определяет творение

Напишите программку, которая в последовательности естественных чисел определяет творенье отрицательных чисел программка получает на вход количество чисел последовательности, а потом сами числа. В последовательности всегда имеется отрицательное число. Программка обязана вывести одно число -творение отрицательных чисел. Безотлагательно! ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Задать свой вопрос
1 ответ

Это же квадратное уравнение.

Program Sq1;

Var A, B, C, D, X1, X2 : Real;

Begin

 Writeln ('Введите коэффициенты квадратного уравнения');

 Readln (A,B,C);

 D:=B*B-4*A*C;

    If Dlt;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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт