var a,z,x,y:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение z: ');
readln(z);
writeln('Введите значение y: ');
readln(y);
a:=(1+z)*((x+(y/(sqr(x)+4)))/(2+(1/(sqr(x)+4))));
writeln('a = ',a);
end.
#include <iostream>
using namespace std;
int main(int argc, const char *argv[])
{
setlocale(LC_ALL,"Russian");
unsigned short int FROM = 20, TO = 32;
int s;
cout << "s = ";
cin >> s;
for (size_t i = FROM; i <= TO; i++) {
if (i % s == 0) {
cout << i << ' ';
}
}
return 0;
}
16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)
//PascalABC.Net 3.1.0.1200
var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 1 / 2 / 3;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * x * x / (2 * i + 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', (sin(x) / x):15:5);
x := x + h;
until x >= xk;
end.