Тест. Інформація. Інформаційні процеси. Кодування інформації. 1.Відомості про оточуючій світ і явища, що в ньому відбуваються *
Повідомлення
Дані
Інформація
Факти
2.Які з властивостей притаманні інформації *
Актуальність
Матеріальність
Цікавість
Корисність
3.Який обсяг інформації в повідомленні: 24 серпня ми святкуємо День Незалежності! *
40 бит
40 байт
41 бит
41 байт
4.Укажіть види інформаційних процесів *
Перемикання
Кодування
Зберігання
Сортування
5.Обери правильну відповідь *
2 Мбайти = 2048 Байтів
2 Мбайти = 2048 Кбайтів
2 Мбайти = 2048 Гбайтів
6.Обери правильну відповідь *
1 Кбайт > 1000 байтів + 24 біти
1 Кбайт = 1000 байтів + 24 біти
1 Кбайт < 1000 байтів + 24 біти
7.Обери правильну відповідь *
4 Кбайти = 5 Кбайтів –1000 байтів
4 Кбайти > 5 Кбайтів –1000 байтів
4 Кбайти < 5 Кбайтів –1000 байтів
8.Розв’яжіть рівняння 64х Кбайт=2 Мбайти *
х = 32
х = 16
х = 128
х = 4
9.Переведіть десяткове число 77 у двійкове *
1001101
1101101
1000001
1000000
10.Впорядкуйте в порядку зростання одиниці вимірювання інформації:0,5 Мб; 1,5 Кб; 28 біт; 8192 біт; 4 байти; 2048 байти. *
4 байти; 28 біт; 0,5 Мб, 1,5 Кб, 28 біт, 8192 біт, 4 байти, 2048 байти.
28 біт; 4 байти; 8192 біт; 1,5 Кб; 2048 байти; 0,5 Мб.
0,5 Мб; 1,5 Кб; 4 байти; 28 біт; 2048 байти; 8192 біт.
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.
var s,v,t,a:real;
begin
writeln('Введите скорость, ускорение и время соотвественно');
read(v,a,t);
s:=v*t+(a*sqr(t))/2;
writeln('Расстояние S = ',s);
end.
Задание №2
var a,b,c,d,m,n:integer;
begin
writeln('Введите ширину и высоту комнаты');
read(a,b);
writeln('Введите размеры окна');
read(c,d);
writeln('Введите размеры двери');
read(m,n);
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n);
end.
Задание №3
var a,b:real;
begin
writeln('Введите два числа');
read(a,b);
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b)));
end.
Задание №4
var x:real;
begin
writeln('Введите ребро куба');
read(x);
writeln('Площадь грани = ',sqr(x));
writeln('Площадь полной поверхности = ',6*sqr(x));
writeln('Объем куба = ',power(x,3));
end.
Задание №5
var r1,r2:real;
begin
writeln('Введите внешний и внутренний радиус');
read(r1,r2);
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2));
end.