1) program _1;
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
Киттикрот -> китти р т
Можно просто проделать те же самые действия самостоятельно)
Самая минимальная единица измерения это бит.
1 байт=8 бит
Никакие.
Доказываю:
Попробуйте найти 2 целых числа от 1 до 99, которые в сумме составляют 100 и если инвертировать одно из них, получается второе число. Это невозможно, а максимально близкий результат - 90 ; 09