Писал похожую программу , мб пригодитьсяvar cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n,digit)-1; ToDec:=m; end; begin writeln('Введите из какой СC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.
1 байт = 8 бит;
128 бит = 16 байт;
10 Мегабайт = 10485760 байт;
1024 байт = 1 Килобайт;
А) Up & Down
б) IBM
в) Enter
15) а) Word б) DOS в) Paintbrush
16) 5*30*70 = 10500 символов в тексте, так как каждый символ кодируется 1 байтом, то объем будет равен = 10500 байтов
17) 32*64= 2048 символов на странице, т.к. 1 символ занимает 1 байт, то 1 страница занимает 2048 байтов = 2 Кб
640/2= 320 страниц книги поместится в оперативной памяти
18) 800*600= 480000 точек на экране дисплея
480000*24 =11520000 битов = 1440000 байтов = 1406 Кб требуется для хранения 1 страницы, тогда 1406*4 = 5624 Кб требуется для хранения 4 страниц изображения
<em>Отличная задачка, в одну строку.</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum)
end.
<u>Пример</u>
n= 8
34 -12 0 16 -5 -7 2 -9
S=-33
<em>Пояснения</em>
ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n.
ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел.
Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа.
Все, что прошло через фильтр, будет просуммировано при помощи .Sum
И осталось только вывести результат при помощи Writeln('S=',тут_сумма)
Вот и все.
