Статья, набранная на компьютере, содержит 16 страницы, на каждой странице 32 строк, в каждой строке 64 символа. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 16 битами.
Const n=15; Var a:array[1..n] of integer; i,indx,k,tr,indxx:integer; Begin Randomize; For i:=1 to n do begin A[i]:=Random(40)-20; Write(a[i],' '); end; Writeln; write('0 имеет номер: '); For i:=1 to n do Begin If A[i]=0 thenwrite(i); end; Writeln; indx:=0; For i:=1 to n do Begin If a[i] mod 2=0 then begin indx += 1; a[indx]:=a[i]; end; end; Write('Индекс четных элементов: '); For i:=1 to indx do write(a[i],' '); For i:=1 to n do Begin If A[i]<0 then Begin inc(k); end; end; Writeln; Writeln('Кoличество отрицательных элементов: ',k); For i:=1 to n do Begin If A[i] mod 3=0 then tr:=a[i]; end; Writeln('Кратное трем ',tr); indxx:=0; writeln('Индексы кратны 3: '); For i:=1 to n do Begin If a[i] mod 3=0 then begin indxx += 1; a[indxx]:=a[i]; write(' ',a[i]); end; end; end.
Вопрос поставлен не корректно. Сам тип файла никак влиять на нарушение авторского права не может. Авторское право можно нарушить используя либо программы и приложения типа Commercialware не приобретая на них лицензию, а использую пиратские версии, либо скачивая в сети интернет информацию, защищенную авторским правом и распространяемую без согласия автора, и нарушая действующее законодательство.
В целом все очень просто : используйте ПО имеющее лицензию Freeware или покупайте лицензию на платное ПО (сам например пользуюсь только Freeware ПО - вместо Microsoft Office использую OpenOffice, вместо Adobe Reader использую FoxitReader, вместо Winrar использую 7Zip и так далее..., а Windows 7 лицензия предустановленная фирмой). Что касается мультимедийной информации - не качайте пиратки с торрентов, а покупайте лицензионные диски (нужно же как-то отблагодарить создателей любимого вашего фильма или любимого исполнителя музыки). Тогда ничего нарушать и не будете.
64
Объяснение:
16*64*32*16/8/1024=64кб