.Найти площадь треугольника по формуле:s=1\2ah где ф сторона треуголнгика а h высота Составить алгоритм и программу на паскале

{Первая задача}

begin

var x: real;

 write('Введите значение x: '); read(x);

 var N:=((x>6) or (x=6))? (4*sqr(x)+3*x+15):(2*x+10);

 write('y(',x,')=',N:1:1);

end.

{Вторая задача}

begin

var k,p: real;

writeln('Введите значения k,p: '); read(k,p);

var N:= (7*Sqr(k)-4*p)/(2*k+p);

write('Результат вычислений: ',N:1:1);

end.

Объяснение:

К первой задаче: используется сокращённое выражение оператора if..else - в скобках после введения переменной N дано выражение [x>6 или x=6]. Двоеточие после него означает, какое значение будет присвоено N: левое, если выражение истинно и правое если ложно.

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

       int M = 5;

       int N = 7;

       srand(time(NULL));      // новая точка отсчета рнд

       int B[M][N];            // массив

       int cnt;                // число отрицательных

       // заполняем массив случайными:

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

           for (int j=0; j<N; j++)

               B[i][j] = rand() %21 - 10;

       //выводим массив

       for(int i = 0; i < M; ++i) {

           cout<<"|";

           for(int j = 0; j < N; ++j){

           cout <<" "<< B[i][j] << " ";

           cout<<"|";

       }

       cout << endl;

   }

       // считаем отрицательные:

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

       {

           cnt = 0;        // перед каждым новым столбцом сбрасываем счетчик отрицательных

           for (int j=0; j<M; j++)

               if (B[i][j] < 0) cnt++;

           cout << "column:"<<i<< " "<< "kol-vo:"<<cnt<< endl;

       }

}

Объяснение:

вроде работает если что пиши