Составить программу в паскаль для решения уравнения x+b=c

ответ:

program summa;

var x,b,c: integer;

begin

writeln('введите 2 числа');

readln(x,b);

c: = x+b;

writeln('c= ' , c);

end.

объяснение: как-то так))

#include < iostream> using namespace std; int main() {       int m, n;       // выделение памяти и ввод матрицы       cout < < "m = ";       cin > > m;       cout < < "n = ";       cin > > n;       int **matrix = new int*[m];       for (int i = 0; i < m; ++i)       {             matrix[i] = new int[n];             for (int j = 0; j < n; ++j)                   cin > > matrix[i][j];       }       // вычисление суммы элементов каждого столбца. определение наибольшего       // значения этих сумм и номер соответсвующего столбца       int sum, max_sum = int_min, max_column;       for (int j = 0; j < n; ++j)       {             sum = 0;             for (int i = 0; i < m; ++i)                   sum += matrix[i][j];             cout < < "column " < < j < < " - sum " < < sum < < endl;                         if (sum > max_sum)             {                   max_sum = sum;                   max_column = j;             }       }       cout < < "max sum in column " < < max_column < < ". max sum is " < < max_sum < < "." < < endl;       // удаление матрицы       for (int i = 0; i < m; ++i)             delete[] matrix[i];       delete[] matrix; }

Написал программы только на первые три . может другим "про-кодерам"  он не понравится,зато работает, принимай: 1: var p: array[1..10] of integer;   i: integer; count: integer; begin for i: =1 to 10 do read(p[i]); write('сколько цифр массива хотите видеть? -> '); readln(count); for i: =1 to count do write(p[i]: 3); end. 2: var arr: array[1..10] of integer;     i: integer;     s: integer;     count: integer; beginfor i: =1 to 10 dobeginarr[i]: =random(-10,10); if(arr[i]< 0)  thenbeginwriteln(arr[i]: 4); s: =s+arr[i]; count: =count+1; end; end; writeln('среднее значение = ', s/count); end. 3: var arr: array[1..10] of integer;     i: integer;     crat: integer;     id: integer;           begin    for i: =1 to 10 do    begin    read(arr[i]);     crat: =arr[i] mod 3;     if(crat = 0) then    begin    id: =arr[i];       if(arr[i] = id) then writeln('id = ', i: 2);     end;     end;     end.если что-то не получится - пиши, разберемся.