Паскаль файлы File15. Дан файл вещественных чисел. Найти сумму его элементов с четными номерами.

сделать по типу такого кода:

var (name1, name2) := ReadString2;
WriteElements& (name2, ReadElements& (name1).Reverse);

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.

вроде бы 100*100=10000 бит=1250 байта

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер: