1. Как компьютер различает вводимые символы? По их двоичному коду По их очертанию По их наименованию 2. С чего устанавливается соответствие между изображением символа и его кодом? С специального наименования каждого символа С кодовых таблиц С служебных клавиш 3. Какие символы соответствуют кодам с номерами от 0 до 32? Управляющие символы Изображаемые символы Символам национальных валют 4. Какие символы соответствуют кодам с номерами от 33 до 127? Буквы национального алфавита Управляющие символы Изображаемые символы 5. Коды с какими номерами используются для кодирования букв национального алфавита? Коды с номерами от 0 до 32 Коды с номерами от 33 до 127 Коды с номерами от 128 до 255 6. Какой особенностью обладают восьмиразрядные кодировки? Количество кодов символов настолько велико, что можно использовать множество языков сразу Количество кодов символов недостаточно велико, чтобы использовать более двух языков сразу Количество кодов символов настолько мало, что можно использовать только один язык за один раз 7. Как называется стандарт кодирования символов, созданный для устранения недостатков и ограничений восьмиразрядных кодировок? Unilevel Unicode Unicoding 8. Чему будет равняться информационный вес символа создаваемого на компьютере текста при использовании шестнадцатиразрядной кодировки? 1 байт 2 байта 3 байта 9. Какое понятие определяется количеством битов, байтов и производных единиц, которые необходимы для записи этого фрагмента каким-либо двоичного кодирования? Информационный вес Информационная величина Информационный объём 10. При использовании кодировки какой разрядности информационный вес символа создаваемого на компьютере текста будет равен 1 байту? При использовании восьмидесятиразрядной кодировки При использовании шестнадцатиразрядной кодировки При использовании восьмиразрядной кодировки
Ответы
1. Короткий современный вариант ("один оператор")
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
Writeln('Sпол.неч = ',ArrRandom(50,-10,20).Println
.Where((x,i)->(x>0) and (i.IsEven)).Sum)
end.
Тестовое решение
15 16 0 17 20 7 -3 -4 9 9 -3 -8 14 10 10 11 7 18 -8 8 0 15 1 4 11 1 9 -10 -7 -7 12 17 8 13 7 15 1 13 12 11 4 -5 -3 -6 -5 -10 -9 -8 8 -8
Sпол.неч = 148
2. Длинный "школьный" вариант ("почувствуйте разницу")
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
a:array[1..50] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 50 do begin
a[i]:=Random(31)-10; Write(a[i],' ');
if (a[i]>0) and Odd(i) then s:=s+a[i]
end;
Writeln;
Writeln('Sпол.неч = ',s)
end.
Тестовое решение
4 14 4 7 9 -4 3 6 20 -10 3 -3 15 12 9 0 3 12 13 -1 9 -2 -2 16 18 -2 5 9 17 -3 4 -6 10 10 -5 10 8 13 12 15 13 1 12 1 7 6 9 2 -9 -6
Sпол.неч = 207
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
Writeln('Sпол.неч = ',ArrRandom(50,-10,20).Println
.Where((x,i)->(x>0) and (i.IsEven)).Sum)
end.
Тестовое решение
15 16 0 17 20 7 -3 -4 9 9 -3 -8 14 10 10 11 7 18 -8 8 0 15 1 4 11 1 9 -10 -7 -7 12 17 8 13 7 15 1 13 12 11 4 -5 -3 -6 -5 -10 -9 -8 8 -8
Sпол.неч = 148
2. Длинный "школьный" вариант ("почувствуйте разницу")
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
a:array[1..50] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 50 do begin
a[i]:=Random(31)-10; Write(a[i],' ');
if (a[i]>0) and Odd(i) then s:=s+a[i]
end;
Writeln;
Writeln('Sпол.неч = ',s)
end.
Тестовое решение
4 14 4 7 9 -4 3 6 20 -10 3 -3 15 12 9 0 3 12 13 -1 9 -2 -2 16 18 -2 5 9 17 -3 4 -6 10 10 -5 10 8 13 12 15 13 1 12 1 7 6 9 2 -9 -6
Sпол.неч = 207
1 задача
var
X_1, Y_1, X_2, Y_2, AC, BC, AB:real;
begin
writeln('Введите значания X_1 (точки A)');
readln(X_1);
writeln('Введите значания Y_1 (точки A)');
readln(Y_1);
writeln('Введите значания X_2 (точки B)');
readln(X_2);
writeln('Введите значания Y_2 (точки B)');
readln(Y_2);
AC:=X_2-X_1;
BC:=Y_2-Y_1;
AB:=sqrt((AC*AC)+(BC*BC));
writeln('Длинна отрезка AB равна ', AB);
end.
2 задача
var
A, B, C, P, S:real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
if(A+B<=C) or (A+C<=B) or (B+C<=A) then
writeln('Треугольник с такими сторонами не существует')
else
writeln ('Площадь треугольника по теореме Герона равна ', S);
end.
var
X_1, Y_1, X_2, Y_2, AC, BC, AB:real;
begin
writeln('Введите значания X_1 (точки A)');
readln(X_1);
writeln('Введите значания Y_1 (точки A)');
readln(Y_1);
writeln('Введите значания X_2 (точки B)');
readln(X_2);
writeln('Введите значания Y_2 (точки B)');
readln(Y_2);
AC:=X_2-X_1;
BC:=Y_2-Y_1;
AB:=sqrt((AC*AC)+(BC*BC));
writeln('Длинна отрезка AB равна ', AB);
end.
2 задача
var
A, B, C, P, S:real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
writeln('Введите сторону C');
readln(C);
P:=(A+B+C)/2;
S:=sqrt(P*(P-A)*(P-B)*(P-C));
if(A+B<=C) or (A+C<=B) or (B+C<=A) then
writeln('Треугольник с такими сторонами не существует')
else
writeln ('Площадь треугольника по теореме Герона равна ', S);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информационное сообщение объёмом 2, 5 кбайта содержит 2560 символов сколько байт весит симвл
Автор: marat-dzhanibekov
Дано предложение, определить длину последнего слова.
Автор: ЮрьевичКарпова1564
Вычислите 1000002 - 111112 цифра 2 означает двоичный код
Автор: Aleksandrovich-Mayatskikh
Упорядочить следующие числа по убыванию: 1436, 509, 12223, 10114, 1100112, 1238.
Автор: kireevatatiana
Що виконує Вкладений цикл, зображений на рисунку?
Автор: burtsev3339
По двоичному коду.Со ответсиве между изображениями и кодами символов устанавливается с КОДОВЫХ ТАБЛИЦ.
Объяснение:https://present5.com/presentation/3/234659276_422999445.pdf-img/234659276_422999445.pdf-8.jpg