Составь свою последовательность из 8 нулей и единиц по образцу 01000111

Вот например: 1011100010111000

Var     a,r: real;     i,l,z: integer;     s: string; begin read(s); l: =length(s); i: =1; r: =0; while (s[i]in['0'..'9'])and(i< l) do     begin     r: =r*10+strtoint(s[i]);     i: =i+1     end; while i< l do     begin     case s[i] of           '+': z: =0;           '-': z: =1;           '*': z: =2;           '/': z: =3;     end;     i: =i+1;     a: =0;     while (s[i]in['0'..'9'])and(i< l) do           begin           a: =a*10+strtoint(s[i]);           i: =i+1           end;     if i=l then a: =a*10+strtoint(s[l]);     case z of           0: r: =r+a;           1: r: =r-a;           2: r: =r*a;           3: r: =r/a;     end;     end; writeln('r = ',r); end.

1) сначала нужно посчитать количество всех символов: 560*62*47=1631840 2) дальше надо вычислить размер всей книги, а для этого умножить количество всех символов на размер одного символа, то есть 1631840*2байта=3263680байт 3) переводим размер одной дискеты в байты: 1.44 мбайт= 1474,56байт 4) делим объём всей книги на объём одной дискеты: 3263680/1474,56=2213,3246528 так как у нас получилось не целое число, нам надо округлить это число до целого и взять на одну дискету больше, чтобы поместилась вся книга, то есть ответ 2214 дискет. проверь, , правильность написания тобой данной , я имею ввиду единицы измерения, потому что один символ редко весит 2 байта. ну а если всё написано правильно, то смело пиши ответ 2214 дискет. удачи!