7 класс. Информатика Задача 1
Переведите величины:
32 бит в байты
4096 бит в килобайты
3,2 Гигабайт в мегабайты
2078 байт в килобайты
16 бит в байты
9437184 байт в гигобайты
Задача 2 .
Один символ алфавита "весит" 4 бита. Сколько символов в этом
алфавите?
Задача 3 .
язык племени Тумба-Юмба состоит из 16ти символов. Каков
информационный вес одного символа?
Задача 4 .*
У племени "чичевоков" в алфавите 24 буквы и 8 цифр. Знаков
препинания и арифметических знаков нет. Какое минимальное
количество двоичных разрядов им необходимо для кодирования всех
символов? Учтите, что слова надо отделять друг от друга!
Задача 5 *
Книга, набранная с компьютера, содержит 150 страниц. На
каждой странице — 40 строк, в каждой строке — 60 символов. Каков
объем информации в книге? ответ дайте в килобайтах и мегабайтах
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1.
Var
n:integer;
Begin
Write('Введи число ');
Readln(n);
if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
a,b:integer;
Begin
Write('Введи числа ');
Readln(a,b);
if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
n:integer;
Begin
write('Введи двузначное число ');
Readln(n);
if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.
Команда For:
For x:=1 to 9 do Writeln(x)
Команда While:
x:=-5;
While x<9 do
begin
y:=abs(x);
Writeln(y);
x:=x+1
end;
Объяснение:
Цикл For:
For переменная-счетчик := начальное значение to конечное значение do
For x:=1 to 9 do
x - переменная-счетчик
1 - начальное (минимальное) значение переменной-счетчика
9 - конечное (максимальное) значение переменной-счетчика
начальное значение <= конечного значения (если это не так, то тело цикла не выполнится ни разу)
В цикле переменная-счетчик автоматически увеличивается на 1 каждый раз при выполнении тела цикла, пока не достигнет конечного значения включительно.
В цикле While переменную надо увеличивать (или уменьшать) в теле цикла, но зато это можно делать на нужный шаг.