Найти корни квадратного уравнения x(x+a)=0, для произвольного значения постоянного коэффициента a. последний этап решения реализовать на языке программирования pascal.

Var a, x: longint; begin   readln (a);   x: =-a;   writeln ('x1=0');   writeln ('x2=',x); end.

#include "stdafx.h"

#include

#include

#include

#include

using namespace std;

int main()  

{

setlocale(lc_all, "russian");

float a[10];

cout < < "заполните массив данными: " < < endl;

for (int i = 0; i < 10; i++)

{

  cout < < "[" < < i + 1 < < "]: ";

  cin > > a[i];

}

float max = a[0];

int index = 0;

for (int i = 0; i < 10; i++)

{

  if (a[i] > max)

  {

  max = a[i];

  index = i;

  }

}

cout < < "\nмаксимальное значение: " < < max < < endl;

float proizv = 1;

for (int i = index+1; i < 10; i++)

{

  proizv = proizv * a[i];

}

cout < < "\nпроизведение элементов массива расположенных после максимального: " < < proizv < < endl;

return 0;

}

написано в visual studio.

ответ:

#include "stdafx.h"

#include

#include

#include

#include

using namespace std;

int main()  

{

setlocale(lc_all, "russian");

int n, k, chastnoe, ostatok;

cout < < "введите делимое n = ";

cin > > n;

cout < < "введите делитель k = ";

cin > > k;

if (k ! = 0)  

{

  int tmp = n;

  chastnoe = ostatok = 0;

  while (tmp > = k)  

  {

  tmp -= k;

  chastnoe++;

  }

  ostatok = tmp;

}

cout < < "частное от деления: " < < chastnoe < < endl;

cout < < "остаток от деления: " < < ostatok < < endl;

return 0;

}

объяснение: