0001
0010
0011
0100
0101
0110
0111
1000 1001101010111100
11011110. 1111
выстирай - испачкай)))))))))))))))))
Количество инф в первом тексте к=5, во втором к=8, разница 5/8.
Program SummaKv;
var
n, i: integer;
begin
n := 0;
for i := 1 to 100 do
n := n + sqr(i);
writeln('Сумма квадратов первой сотни чисел = ', n);
end.
Здесь квадрат числа 100 так же включается в сумму.