1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.

2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.

3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.

Пример:
5
s = 6.875000000000000e-01

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА ИНФОРМАТИКА 8 КЛАСС

роман777777777777... [7]

10 Кбайт = 10 × 1024 байт = 10240 байт.

При длине сообщения 20480 символов на 1 символ приходится 10240 / 20480 = 0.5 байта = 0.5 × 8 = 4 бита.

Следовательно мощность алфавита составит 2⁴ = 16 символов.

0 0

3 года назад

Прочитать ещё 2 ответа

Помогите,сделать блок схему

Наргиз31