Создайте файл x, компонентами которого являются элементы массива m. перепишите из файла x в файл y все компоненты, которые стоят на чётных местах. прочитайте файл y. m = (0,1; 5,6; 0,8; 2,4; 7,3; 6,8; 0,5; 2,3)
1) Определяем общее количество бит: 16 х 640 х 480 = 4 915 200 С учетом того, что в байте 8 бит, а 1 КБ=1024 Б получим 4 915 200 / 8 / 1024 = 600 (КБ)
2) Определяем общее количество бит с учетом того, что в палитре True Color для цвета отводится 24 бита: 1600 х 1200 х 24 = 46 080 000 (бит). После преобразования файла для Интернет он будет представлен в восьмибитной палитре ( 256 = 2⁸ ) и займет объем 1400 х 900 х 256 = 10 080 000 (бит). Разница в объемах составит 46 080 000 - 10 080 000 = 36 000 000 бит. С учетом того, что в байте 8 бит, а в мегабайте 1024 х 1024 байт получим, что пространство на диске сократиться на 36 000 000 / (8 х 1024 х 1024) ≈ 4.29 (МБ)
1 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 2 = 0 then Writeln('Число чётное') else Writeln('Число не чётное'); readln; end.
2 program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 3 = 0 then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); readln; end.
3 program z; var i: array[1..6] of byte; x:byte; begin for x:=1 to 6 do
begin Writeln('Введите ', x,' цифру из 6 '); Read(i[x]); end; if (i[1]+i[2]) = (i[4]+i[5]+i[6]) then Writeln('Билет счастливый') else Writeln('Билет не счастливый'); Readln; end.
5))) program z; var i : integer; begin Writeln('Введите число'); Readln(i); if i mod 6 = 0 then Writeln('Число делится на 6') else Writeln('Число не делится на 6'); readln; end. 6 program z; var a,b:integer; begin Writeln('Введите число A'); Readln(a); Writeln('Введите число B'); Readln(b); if b mod a = 0 then Writeln('Число А делится нацело на число В') else Writeln('Число А не делится нацело на число B'); Readln; end.
С учетом того, что в байте 8 бит, а 1 КБ=1024 Б получим
4 915 200 / 8 / 1024 = 600 (КБ)
2) Определяем общее количество бит с учетом того, что в палитре True Color для цвета отводится 24 бита: 1600 х 1200 х 24 = 46 080 000 (бит).
После преобразования файла для Интернет он будет представлен в восьмибитной палитре ( 256 = 2⁸ ) и займет объем
1400 х 900 х 256 = 10 080 000 (бит).
Разница в объемах составит 46 080 000 - 10 080 000 = 36 000 000 бит.
С учетом того, что в байте 8 бит, а в мегабайте 1024 х 1024 байт получим, что пространство на диске сократиться на
36 000 000 / (8 х 1024 х 1024) ≈ 4.29 (МБ)