В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер в байтах следующего предложения в данной кодировке: Я к вам пишу – чего же боле? Что я могу ещё сказать? ответ: . Валя шифрует русские слова, записывая вместо каждой буквы её код. А В Д О Р У 01 011 100 111 010 001 Дана кодовая цепочка: 01000110001 Расшифруйте слово. Запишите в ответе расшифрованное слово. ответ: . Для какого целого числа X ЛОЖНО высказывание: (X > 3) ИЛИ НЕ (X > 2)? ответ: . 1 2 3 Информатика. 9 класс. Вариант ИН1990304 3 © СтатГрад 2019−2020 уч. г. Публикация в интернете или печатных изданиях без письменного согласия СтатГрад запрещена Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) приведена в таблице. A B C D E F A 3 5 15 B 3 1 C 5 1 1 D 1 2 6 E 2 2 F 15 6 2 Определите длину кратчайшего пути между пунктами A и F. Передвигаться можно только по дорогам, протяжённость которых указана в таблице. ответ: . У исполнителя Делитель две команды, которым присвоены номера: 1. раздели на 2 2. вычти 1 Первая из них уменьшает число на экране в 2 раза, вторая уменьшает его на 1. Исполнитель работает только с натуральными числами. Составьте алгоритм получения из числа 65 числа 4, содержащий не более 5 команд. В ответе запишите только номера команд. (Например, 12112 – это алгоритм: раздели на 2 вычти 1 раздели на 2 раздели на 2 вычти 1, который преобразует число 42 в число 4.) Если таких алгоритмов более одного, то запишите любой из них. ответ: . 4 5 Информатика. 9 класс. Вариант ИН1990304 4 © СтатГрад 2019−2020 уч. г. Публикация в интернете или печатных изданиях без письменного согласия СтатГрад запрещена Ниже приведена программа, записанная на пяти языках программирования. С++ Python Паскаль #include using namespace std; int main() { int s, k; cin >> s; cin >> k; if (s >= 2 * k) cout << "ДА"; else cout << "НЕТ"; return 0; } s = int(input()) k = int(input()) if s >= 2 * k: print("ДА") else: print("НЕТ") var s, k: integer; begin readln(s); readln(k); if s >= 2 * k then writeln(‘ДА’) else writeln(‘НЕТ’) end. Алгоритмический язык Бейсик алг нач цел s, k ввод s ввод k если s >= 2 * k то вывод "ДА" иначе вывод "НЕТ" все кон DIM k, s AS INTEGER INPUT s INPUT k IF s >= 2 * k THEN PRINT ′ДА′ ELSE PRINT ′НЕТ′ END IF Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел: (1, 2); (8, 4); (6, –12); (–5, –5); (3, 11); (–10, 12); (–10, –2); (4, 1); (2, 5 Сколько было запусков, при которых программа напечатала «ДА»? ответ: . Доступ к файлу math.doc, находящемуся на сервере obr.ru, осуществляется по протоколу https. Фрагменты адреса файла закодированы цифрами от 1 до 7. Запишите последовательность этих цифр, кодирующую адрес указанного файла в сети Интернет. 1) obr 2) / 3) .ru 4) .doc 5) :// 6) math 7) https
Ответы
1)var
a: array [1..30] of integer;
i, s, k: integer;
beginfor i := 1 to 30 do//заполнение рандомными числами(от -15 до 50, включая и -15 и 50) массив
a[i] := random(-15, 50);
for i := 1 to 30 do//сумма элементов и подсчет кратных 3
begin
s := s + a[i];//сумма элементов
if a[i] mod 3 = 0 then//подсчет кол во кратных 3
k := k + 1;
end;
writeln('Исходный массив');
for i := 1 to 30 do
writeln('A[', i, '] = ', a[i]);
writeln('Сумма элементов массива: ', s);
writeln('Кратных 3: ', k);
end.
извини бы дальше но дела но вот подсказки:
2) метод пузырька посмотри
3) там через функцию поиска и удаления
если над у меня есть группа в вк называется просто программки если интересно можешь глянуть
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var
n, Num, i, j, t: integer;
Count: array[1..12] of integer;
Names: array[1..12] of integer;
begin
for i := 1 to 12 do
begin
Count[i] := 0;
Names[i] := i;
end;
ReadLn(N); { Считываем количество запросов}
for i := 1 to N do
begin
ReadLn(t); {считали очередной запрос}
Count[t] := Count[t] + 1;
end;
{Сортируем массивы Names и Count в порядке убывания значений массива Count}
for i := 12 downto 2 do
for j := 2 to i do
if Count[j - 1] < Count[j] then
begin
t := Count[j];
Count[j] := Count[j - 1];
Count[j - 1] := t;
t := Names[j];
Names[j] := Names[j - 1];
Names[j - 1] := t;
end;
for i := 12 downto 1 do
if Count[i] > 0 then
WriteLn(Names[i], ' ', Count[i]);
end.
Объяснение: