Число (деление на 2) остаток
978 | 0
489 | 1
244 | 0
122 | 0
62 | 0
31 | 1
15 | 1
7 | 1
3 | 1
1 | 1
Записываем остатки в обратном порядке: 1111100010
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
можно среда, элементраные действия, система команд, отказы ну и так далее
можно сэкономить место на диске, т.е заархивировать это значить сжать данные в нескольео раз