1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
КОИ-8 =1 символ равен 8 бит
Для таго, чтобы найти Iобьем нужно=i×n(I обьем= 1 символ чем кодируеться здесь 8 битами[i] × кол.строк × кол. символов{Символы считаются все т.е:пробел , буква , цыфра , знаки препинания и т.д})
n=кол.строк × кол. символов
Iобьем=8×57(точку в конце предложения ,я считал)=456 бит=57байт=0,05кбайт
ответ:456 бит=57байт=0,05кбайт (В чем записать ответ в этой задаче в битах , в байтах и кбайтах, я незнаю , так что пиши на своё усмотрение;Но лутше в байтах)