Запишите условия на языке Паскаль. 1) Величина Х – положительна 2) Число Y - неотрицательно 3) 0 < X < 5 4) X равно 10 5) Числа X и Y – отрицательные 6) X (- 5; 5 ] 7) X > 0 , Y < 4 8) X кратно 3 9) X не делится на
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив [',8,',',7,'] ***'); var a:=MatrRandom(8,7,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); for var i:=0 to a.RowCount-1 do begin a.SetRow(i,a.Row(i).Sorted.ToArray) end; Writeln('*** Результирующий массив ***'); a.Println(4) end.
#include <cmath>
using namespace std;
int main()
{
double a;
double b;
double c;
double x;
cout << "Введите значение a: ";
cin >> a;
cout << "Введите значение b: ";
cin >> b;
cout << "Введите значение c: ";
cin >> c;
if((b*b - 4*a*c) >= 0) //Если дискриминант больше или равен 0
{
x = ( -1*b + sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Первый корень равен " << x << endl;
x = ( -1*b - sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Второй корень равен " << x << endl;
}
else
{
cout << "Дискриминант меньше 0, нет вещественных корней." << endl;
}
return 0;
}