Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 2 to n do
begin
a := a * -(i - 1) / i;
s := s + a;
end;
writeln(s:10:6);
end.
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
Сообщение составит 32 * 2500 = 80000 бит = 10000 байт
История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
<span> X Y
</span>1.(101,101) (5, 5)
2.(1000,1000) (8, 8)
3.(1001,100) (9, 4)
4.(1011,1110) (11, 14)
5.(1100,110) (12, 6)
6.(1100,111) (12, 7)
7.(1011,111) (11, 7)
8.(1011,10) (11, 2)
9.(1001,10) (9, 2)
10.(1001,11) (9, 3)
11.(1010,11) (10, 3)
12.(1010,100) (10, 4)
13.(111,100) (7, 4)
<span>14.(111,10) (7, 2)</span><span>
</span>График во влажении. Не знаю как их плавной линией соединить, сильно они разбросаны.