Брошюра содержит 16 страниц, на каждой из которых в среднем по 32 строки содержащих 64 символов каждая. сколько килобайт составляет информационный объём текстового файла с брошюрой, если для кодирования текста использовано 8 битная кодировка koi-8?
Var m : array[0..6] of Integer; i,k,N : Integer; Begin For i:=0 to 6 do m[i]:=0; Readln(N); k:=6; While N>0 do Begin If N>=Power(2,k) then Begin N:=N-Trunc(Power(2,k)); Inc(m[k]); end else Dec(k); end; For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.'); end.
Еще вариант: Const NN = 7; money : array[1..7] of Integer = (1,2,4,8,16,32,64); Var m : array[1..NN] of Integer; i,k,N : Integer; Begin For i:=1 to NN do m[i]:=0; Readln(N); k:=NN; While N>0 do Begin If N>=money[k] then Begin N:=N-money[k]; Inc(m[k]); end else Dec(k); end; For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.'); end.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var x:=ArrRandom(n,-5,25); x.Println; var y:=ArrRandom(n,-5,25); y.Println; var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println; var s:=z.Sum; var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный'; Writeln('Сумма равна ',s,', знак суммы ',c) end.
16*50*32=25600байт
8бит=1байт
25600*1=25600байт
1Кбайт=1024байта
25600:1024=25Кбайт