В одной из кодировок 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
//PascalABC.Net 3.0, сборка 1111
type
Point=record
x,y:double
end;
function TriangleSquare(A,B,C:Point):double;
begin
Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;
procedure GetPoint(c:char; var A:Point);
begin
Write('Введите координаты точки ',c,': ');
Readln(A.x,A.y)
end;
var
A:array['A'..'F'] of Point;
i:'A'..'F';
s1,s2:double;
begin
for i:='A' to 'F' do GetPoint(i,A[i]);
s1:=TriangleSquare(A['A'],A['B'],A['C']);
s2:=TriangleSquare(A['D'],A['E'],A['F']);
if s1>s2 then Writeln('Площадь первого треугольника больше')
else
if s2>s1 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub