Неточно выводит значения. Не смогла найти, где ошиблась , и отмечу как лучший ответ кину спам, если не в тему напишите

using namespace std;
#include
#include
#include
#include
HANDLE c;
int main() {
c = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(c, 11);
setlocale(LC_ALL, "ru");
double x, y, s, a, b, h, next;
int k;

cout << " a= ";
cin >> a;
cout << endl << " b= ";
cin >> b;
cout << endl << " h= ";
cin >> h;
cout << endl << " k= ";
cin >> k;
cout << "\nЗначения x, y, s для каждого x+const*h из [a; b].\n\n";

x = a;
b = b + (h / 3);
do {
y = cosh(x);
s = 0;
next = 1;
for (double w = 0; w < k; w++) {
next = next * ((x * x) / (4 * w * w + 6 * w + 2));
s = s + next;
}
cout << setw(5) << x << endl;
cout << setw(14) << y << endl;
cout << setw(14) << setprecision(3) << s << endl;
cout << "\n\n";
x = x + h;
} while (x < b);
return 0;
}

Задание
Вывести на экран таблицу значений функции y(x) и ее разложения в ряд s(x) для x, изменяющихся от a до b с шагом h=(b-a)/10.
a=0.1
b=1
y(x)=ch(x)
s(x)=sum(от n=0 до k) (x^(2n))/((2n)!)

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных

поскольку неточное и малопонятное, то сначала создадим общую папку и файл в ней, а потом скачаем ее с другого компьютера. алгоритм для ос windows 10

создадим общую папку

1) одинаково называем рабочую группу у обоих компьютеров.

пуск → параметры → система → о системе, пункт "организация"

если разная, то сведенья о системе → изменить параметры → изменить и ввести имя группы

2) найти/открыть папку, которую требуется сделать общей

3) клик правой кнопкой мыши по папке → свойства → доступ → расширенная настройка

4) нажать «открыть общий доступ к этой папке»

5) открыть «разрешения» и выставить необходимые разрешения

6) создать или скопировать файл в выбранную папку

скачать файл к себе на компьютер

1) заходим в проводник - сеть

2) находим компьютер, где лежит файл. открываем

3) открываем нужную папку, к которой дан общий доступ

4) при необходимости в всплывающем окне вводим логин и пароль учетной записи компьютера в который мы зашли (зависит от настроек доступа и политик безопасности)

5) находим файл и копируем его.

6) открываем целевую папку на своем компьютере и вставляем туда файл