Var
y:real;
n:integer;
Begin
y:=0;
For n:= 4 to 20 do
y:=y+1/(n+1);
WriteLn('y = ',y);
End.
524288=2 в 19 (если символ весит 8 бит).
1048576=2 в 20 (если символ равен 16 бит).
Добрыня должен отрубить 4 головы а Алеша отрубит последнюю голову
program raf105;
var
i,n: integer;
s: real;
begin
write('Введите N: ');
readln(n);
repeat
i:= i+1;
s:= s + 1/i;
until i = n;
writeln('S = ',s);
end.
<h3><u>PascalABC 3.4.2</u></h3>
277 в 8 сс<span> = 2∙8^2</span>+7∙8^2+7∙8^0<span> = 128+56+7 = 191 в </span><span>10 сс. ^ - это степень, если что.</span>