Ответ:
var i,n,m,s,sa,sb: integer;
begin
write('n = ');
readln (n);
write('m = ');
readln (m);
for i:=n to m do
begin
s:=s+i;
if i mod 2 = 0 then sa:=sa+i else sb:=sb+i
end;
write('s = ',s,' sa = ',sa,' sb = ',sb)
end.
Объяснение:
Если интервал [n,m]
На 1
странице досье
располагается 48х64х8= <span>24576
бит или 3072 или 3Кб. Тогда 1 досье, содержащее 12 страниц имеет объем
информации равный 12х3=36 Кб. Все досье занимают 45 Мб или 46080 Кб.
Следовательно всего досье 46080 : 36 = 1280</span>
8битов
32байта
16532бита
8кб
10мб
вродебы так,но я не уверен
После строки uses Robot нужно поставить ;
Т.е. первая строка должна иметь вид uses Robot;