uses crt;
var a,b,c:real;
begin
write('Введите A,B,C: ');
read(a,b,c);
writeln(power(exp(1), (sin(a+b)/cos(a+b))/sin(a)-ln(c) )*sin((sqrt(sqrt(c)+a))/cos(sqrt(a)))/cos((sqrt(sqrt(c)+a))/cos(sqrt(a)))*ln( (sqrt( (a+b)/sqrt(a)+sqrt(b) )-c)/(c+( (c+sqrt(5*a))/c+(sqrt(a+b))/(b*sqrt(c)) )) ):0:5);
<span>end.</span>
Принцип такой, формулу свою вставь
<span>uses crt;
var x,e,s,t:real;
k:integer;
begin
clrscr;
e:=0.000001;
write('x=');
readln(x);
s:=0;
t:=1;
k:=0;
while abs(t)>e do
begin
k:=k+1;
t:=-t*x*x/(2*k*(2*k-1));
s:=s+t;
end;
write('S=',s:0:6);
readln;
end.</span>
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
#include <iostream>
#include <stdlib.h>
#include <time.h>
using namespace std;
const int n = 10;
int main()
{
int a[n][n];
cout << "Source array: \n";
srand(time(NULL));
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
a[i][j] = rand() % 500 + 100;
cout << a[i][j] << " ";
}
cout << endl;
}
cout << "New array: \n";
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
if ((a[i][j] % 2 == 0) && (i == j))
a[i][j] = 100;
cout << a[i][j] << " ";
}
cout << endl;
}
//system("pause");
return 0;
}
