11.Для кодирования секретного сообщения используются 25 специальных значков-символов. При этом символы кодируются одним и тем же минимально возможным количеством бит. Чему равен информационный объем сообщения в битах длиной в 645 символов? ответ: … 12.Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах у и и обозначают цепочки цифр. заменить (v, w) нашлось (v) Дана программа для исполнителя Редактор: начало ПОКА нашлось (63) ИЛИ нашлось (664) ИЛИ нашлось (6665) ЕСЛИ нашлось (63) ТО заменить (63, 4) КОНЕЦ ЕСЛИ ЕСЛИ нашлось (664) ТО заменить (664, 5) КОНЕЦЕСЛИ ЕСЛИ нашлось (6665) ТО заменить (6665, 3) КОНЕЦ ЕСЛИ конец пока конец Какая строка получится в результате применения приведённой выше программы к строке, в которой первая и последняя цифры - 3, а между ними стоит 120 цифр 6? В ответе запишите полученную строку. ответ: ＿ 14 задание на фото
Const N = 33; Var A:array[1..N] of integer; i:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(100000)-50000; Write(' ',A[i]); End; WriteLn; WriteLn; Write('Трёхзначные числа:'); For i:= 1 to N do if (99<Abs(A[i]))and(Abs(A[i])<1000) then Write(' ',A[i]); WriteLn; Write('Номера четырёхзначных чисел:'); For i:= 1 to N do if (999<Abs(A[i]))and(Abs(A[i])<10000) then Write(' ',i) End.
Первый вариант программы: Const N = 5; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); S:=S+A[i]; End; WriteLn; WriteLn('Сумма его элементов: ',S); End.
Второй вариант программы: Const N = 13; Var A:array[1..N] of integer; i,S,B:integer; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); End; WriteLn; Write('Введите номера пяти элементов: '); For i:= 1 to 5 do Begin Read(B); S:=S+A[B]; End; WriteLn('Их сумма равна: ',S); End.
Пример: Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1 Введите номера пяти элементов: 3 4 7 12 1 Их сумма равна: 23
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
