1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
Проектор наверное..
Я так считаю......
В исходном файле 64 цвета: 2^N= 64 ---> N=6 бит для одного пикселя.
6*X - размер файла, где X - количество пикселей.
В черно - белом формате 2 цвета, (2^1=2) 1 бит - 1 пиксель.
6*X = X*1+50 *2^3
5*X=50*8
X=10*8 - количество пикселей
6*10*8 бит = 60 байт <--- ответ (размер исходного файла)
Var x, a : real;
begin
readln(a);
x := arctan(1/(power(E, a) + 1)) + PI;
writeln(x);
end.