Вот) Тут используется формула
и, как я понимаю, всё таки
, а не
var
x, res: real;
i, n: integer;
begin
writeln('Enter n, x:');
readln(n, x);
res := 0;
for i := 1 to n do
res := res + cos(exp(i * ln(x)));
writeln(res);
end.
=======
var
A: real;
i: integer;
begin
writeln('Enter A:');
readln(A);
i := 1;
while 1 / (2 * i) >= A do
i := i + 1;
writeln('a_', i, ' = ', 1 / (2 * i));
end.
Program abc;
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.
720:180 =4 бита - один символ
2^4=16 символов в алфавите (мощность алфавита)
То есть 1 буква это 4 бита.
Много букв = много битов = большой обьём памяти.