Как закодировать целое число 15? ?

Program Z2;

Var q,s,n,x,y,m,w,a,b,c: real;

Begin

write ('введите число a=');

readln (a);

write ('введите число b=');

readln (b);

write('введите число c=');

readln (c);

x := c+sqrt(a)*sin(sqrt(c));

y := sin(3*b)*cos(3*b);

s := sqrt(a-x/y);

m := ln(1+sin(a));

w := sqrt((b+c)/(a*a-1))+(a/(c*b));//error x2

n := sqrt(b+(m/w));

q := sqrt((3+s)/(8-n));//error x4

writeln(q);

End.

Объяснение:

комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и ... вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать

#include <iostream>using namespace std;void selectionSort(double arr[], int size1, int size) { //size раз for (int i = size; i < size1; i++) { //ищем минимальный элемент среди [i; size - 1] int minPos = i; for (int j = i + 1; j < size1; j++) if (arr[j] > arr[minPos]) minPos = j; //ставим минимальный элемент на i-е место swap(arr[minPos], arr[i]); }}int main() { int size; scanf("%d", &size); double arr[1000]; for(int i = 0; i < size; i++){ scanf("%lf", &arr[i]); } selectionSort(arr, size, 0);        int size1 = 21; double arr1[22]; for(int i = size; i < size1; i++){ scanf("%lf", &arr1[i]); } selectionSort(arr1, size1, size); swap(arr1[size1], arr1[10]); double res[2000]; for (int i = 0; i < size; i++){        res[i] = arr[i];        }        for (int i = size; i < size1; i++){        res[i] = arr1[i];        }        for (int i = 0; i < size1; i++){        printf("%lf ", res[i]);        }}