Занести в одно мерный массив целые числа с клавиатуры. затем определить в массиве и вывести на экран следующие значения: числа-элементы массива, у которых индекс (номер элемента массива) заканчивается цифрой 3.
Var i: integer; a: array[1..20] of integer; begin for i: =1 to 20 do readln(a[i]); for i: =1 to 20 do if (i=3) or (i mod 10=3) then writeln(a[i]); readln; end.
1) 1 текст n=16, i=4 второй текст n=256 i = 8 8/4 =2 ответ в 2 2) n = 256 i = 8 бит на 1 символ 192 * 160 = 30720 30720 * 8 = 245760 бит на все 160 страниц. переведем в килобайты 245760 : 8 : 1024 = 30 кб ответ: 30 кбайт 3) всего 16 клеток n =16 i = 4 3*4 = 12 ответ: 12 бит информации 4) решается по формуле y = k*i 7.5 *1024 * 8 = 61 440 61440 = 7680 * i i = 8 n = 2 в степени i n = 2 в степени 8 n = 256 ответ: 256 5) n = 12 i = 4 y = k * i y = 256 *4 = 1024 бита ответ: 1024 бит