В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Софи1138
Софи1138
25.07.2022 18:49 •  Информатика

1)в кокой строке единицы измерения информации расположены по убываниюа) гигабайт мегабайт килобайт байт битб)бит байт мегабайт килобайт гигабайтв)байт бит килобайт мегабайт гигабайт г) бит байт килобайт мегабайт гигабайт2)для кодирования одного из цветов палитры служит двоичный код 001.сколько цветов содержит палитра? а) 3 б) 8 в) 16 г) 243)статья,набранная на компьютере,содержит 16 страниц,в каждой строке 40 символов. в одном из представлений unicode каждый символ кодируеться 16 битами. определите информационный объем статьи в этом варианте представлеия unikode. c решением а)50кбайт в)400байтб)40кбайт г)800байт4)в каком из ниже предложений правильно расставлены пробелы между словами и знаками препинаниями? а) с родной земли- умри , не сходи.б) с родной земли -умри, не сходи .г) с родной земли-умри, не сходи.д) с родной земли - умри, не сходи.5)определите какое из указанных ниже имен файлов удовлетворяет маске: ? se*lo.d? а) selo.d в) hseolo.dppб) selo.dpp г) hseolo.d6)в некотором каталоге хранился файл вьюга.doc, имевший полное имяd: \2013\зима\вьюга.doc. в этом каталоге создали подкаталог январь и файл вьюга.doc переместили в созданный подкаталог. укажите полное имяэтого файла после перемещения. если сдесь есть решение то напишите его а) d: \январь\вьюга.docб) d: \2013\зима\вьюга.docв) d: \2013\январь\вьюга.docг) d: \2013\зима\январь\вьюга.doc7). считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объём следующего высказывания: где родился, там и сгодился ( с решением )8)валя шиф­ру­ет рус­ские слова (последовательности букв), за­пи­сы­вая вме­сто каж­дой буквы её код: а д к н о с01 100 101 10 111 000некоторые це­поч­ки можно рас­шиф­ро­вать не одним например, 00010101 может озна­чать не толь­ко ска, но и снк. даны три ко­до­вые цепочки: 1001010001000001010110001найдите среди них ту, ко­то­рая имеет толь­ко одну расшифровку, и за­пи­ши­те в от­ве­те рас­шиф­ро­ван­ное слово.9)в таб­ли­це за­про­сы к по­ис­ко­во­му серверу. для каж­до­го запроса ука­зан его код — со­от­вет­ству­ю­щая буква от а до г. рас­по­ло­жи­те коды за­про­сов слева на­пра­во в по­ряд­ке возрастания ко­ли­че­ства страниц, ко­то­рые нашёл по­ис­ко­вый сервер по каж­до­му запросу. по всем за­про­сам было най­де­но разное ко­ли­че­ство страниц. для обо­зна­че­ния логической опе­ра­ции «или» в за­про­се используется сим­вол «|», а для ло­ги­че­ской операции «и» — «& »: код запроса рим& париж& лондонб лондон | римв рим& лондонг рим | париж | лондон 10) несжатое растровое изображение размером 64*512 пикселей занимает 16 кб памяти. каково максимально возможное число цветов в палитре изображения варианты я все которые у меня есть решите все

Показать ответ
Ответ:
ruskei
ruskei
27.05.2021 20:11
//PascalABC.Net 3.2
var m, n: integer;
a: array of array of integer;

procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;

procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;

procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;

begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);

writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.
0,0(0 оценок)
Ответ:
ddcgsshrdfydd
ddcgsshrdfydd
21.04.2021 11:08
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Число элементов в массиве:');
  var a:=ArrRandom(n,1,99);
  Write('Исходный массив: '); a.Println;
  var n1,n2:integer;
  Write('Границы номеров элементов для суммы: '); Read(n1,n2);
  if n1>n2 then Swap(n1,n2);
  if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива')
  else Writeln('S=',a[n1-1:n2].Sum)
end.

Пример
Число элементов в массиве: 15
Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66
Границы номеров элементов для суммы: 4 9
S=272
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота