Перевести код с c++ на pascal (турбо паскаль)#include #include #include using namespace std; const double eps = 0.01; double func(double x) {return x*sinh(x); }double simpson_integral(double a, double b, int n){ const double h = (b-a)/n; double k1 = 0, k2 = 0; for(int i = 1; i < n; i += 2) { k1 += func(a + i*h); k2 += func(a + (i+1)*h); } return h/3*(func(a) + 4*k1 + 2*k2); }int main(){ double s1, s; double a = 0, b = 1; int n = 2; s1 = simpson_integral(a, b, n); do { s = s1; n = n + 1; s1 = simpson_integral(a, b, n); } while (fabs(s1 - s) > eps); cout < < s1 < < endl; return 0; }

Используем сложение "в столбик".

   5 3
+ 2 5

1 2 2
В младшем разряде 3+5 дают число, большее 5, а мы видим цифру 2, следовательно, получилось 12 и произошел перенос 1 в старший разряд, а 2 - это остаток. Но мы знаем, что 3+5 = 8, т.е. разница составила +4, тогда основание системы счисления на 4 меньше десяти, т.е. равно 6.
Проверим по старшему разряду.
5+2+1=8 (учли +1 переноса). Но это в десятичной системе, а в шестверичной на 4 больше, т.е. 12. Что мы и видим.
Вторая часть данных для решения не нужна. Совершенно.
ответ: шестеричная система счисления.

Program z1;  Var a: array [1..1000] of integer;      b: array [1..1000] of integer; i,j,n,min,m:integer;Begin  write('Введите размер массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(50)-0;    write (a[i],' ');  end;    j:=1;  for i:=2 to n-1 do  begin    if ((a[i]>a[i-1]) and (a[i]>a[i+1]))      then begin            b[j]:=a[i];            j:=j+1;           end;  end;    m:=j-1;  writeln;  for j:=1 to m do    write (b[j],' ');    min:=b[1];  for j:=2 to m do    if (b[j]<min) then min:=b[j];    writeln;  writeln(min);    End.