Информатика: Составить 5 задач по информатике (7 класс

Составить 5 задач по информатике (7 класс

👇

Увидеть ответ

Ответ:

Sachakovakrist

31.05.2022

не темы, ничего, берешь параграф из учебника и смотришь ключевые слова, по ним уже составляешь свои во

4,5(40 оценок)

Ответ:

наташа6710

31.05.2022

Объяснение:

Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 16-битном коде Unicode, в 8-битную кодировку КОИ-8. При этом информационное сообщение уменьшилось на 800 бит. Какова длина сообщения в символах?

1) 50 2) 100 3) 400 4) 800

Автоматическое устройство осуществило перекодировку информационного сообщения длиной 48 символов, первоначально записанного в 7–битном коде ASCII, в 16–битную кодировку Unicode.

При этом информационное сообщение увеличилось на

1) 48 байт 2) 96 байт 3) 54 байт 4) 432 байт

Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 16–битном коде Unicode, в 8–битную кодировку Windows–1251, при этом информационный объем сообщения составил 60 байт.

Определите информационный объем сообщения до перекодировки.

1) 60 бит 2) 120 бит 3) 960 бит 4) 60 байт

Автоматическое устройство осуществило перекодировку информационного сообщения, первоначально записанного в 7-битном коде ASCII, в 16-битную кодировку Unicode. При этом информационное сообщение увеличилось на 108 бит.

Какова длина сообщения в символах?

1) 12 2) 27 3) 6 4) 62

В кодировке Unicode на каждый символ отводится два байта. Определите информационный объем слова из двадцати четырех символов в этой кодировке.

1) 384 бита 2) 192 бита 3) 256 бит 4) 48 бит

4,5(38 оценок)

Открыть все ответы

Ответ:

EcLIpsЕ

31.05.2022

//Школьный вариант с уродливым "пузырьком"
//Pascal ABC.NET 3.1 сборка 1256

Const
n=10;
m=20;
z=30;

Var
ar1:array[1..n] of integer;
ar2:array[1..m] of integer;
ar3:array[1..z] of integer;
i,k,j:integer;
b:boolean;

begin
randomize;
k:=-1;
b:=false;
for i:=1 to n do
ar1[i]:=random(20);
for i:=1 to n-1 do
for j:=i+1 to n do
if ar1[i]>ar1[j] then swap(ar1[i],ar1[j]);
writeln('Array 1:');
for i:=1 to n do
write(ar1[i]:4);
writeln;
for i:=1 to m do
ar2[i]:=random(20);
for i:=1 to m-1 do
for j:=i+1 to m do
if ar2[i]>ar2[j] then swap(ar2[i],ar2[j]);
writeln('Array 2:');
for i:=1 to m do
write(ar2[i]:4);
writeln;
for i:=1 to z do
ar3[i]:=random(20);
for i:=1 to z-1 do
for j:=i+1 to z do
if ar3[i]>ar3[j] then swap(ar3[i],ar3[j]);
writeln('Array 3:');
for i:=1 to z do
write(ar3[i]:4);
for i:=1 to n do
begin
k:=-1;
for j:=1 to m do
if ar1[i]=ar2[j] then
begin
k:=ar1[i];
break;
end;
if k=-1 then continue;
for j:=1 to z do
if k=ar3[j] then
begin
b:=true;
break;
end;
if b=true then break;
end;
writeln;
writeln('Result:');
if b=false then writeln('Нет') else writeln(k);
end.

4,7(78 оценок)

Ответ:

staylent

31.05.2022

Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по упорядоченным массивам.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var x:=ArrRandom(ReadInteger('p='),-20,20).Sorted;
var y:=ArrRandom(ReadInteger('q='),-10,15).Sorted;
var z:=ArrRandom(ReadInteger('r='),1,18).Sorted;
x.Println; y.Println; z.Println;
var r:=x.Intersect(y.Intersect(z));
if r.Count=0 then Writeln('Нет общих элементов')
else begin Write ('Общие элементы: '); r.Println end
end.

Тестовое решение
p= 15
q= 13
r= 18
-19 -16 -15 -11 -7 -7 -2 0 0 2 4 7 10 14 20
-8 -6 -4 -4 -4 -3 -1 4 4 9 13 13 15
1 1 2 2 2 4 4 5 6 9 10 12 12 14 14 15 15 17
Общие элементы: 4

4,4(12 оценок)

Это интересно:

Компьютеры-и-электроника

02.02.2022

Как создать файл в формате PDF с помощью бесплатного приложения OpenOffice...

Дом-и-сад

10.04.2023

Как очистить забившийся шредер...

Образование-и-коммуникации

25.03.2023

10 советов, как раскрыть свой талант и стать успешным...

Взаимоотношения