8 символов "Фамилия" и 6 символов "Имя". Взята стандартная кодировка в 8 Бит. (8+6)*8 = 112 Бит информации.
Объём на 1 страницу 50*60 = 3 000 символов.
3000*8 = 24 000 Бит
Расчёт проведу в 2 способа: 1. Отталкиваясь от реального объёма флешки. 2. Исходя из объёма в 8 Гб
Первый вариант:
Реальный объём примерно 8 000 000 000 Байт
8 000 000 000*8 = 64 000 000 000 Бит
64 000 000 000/24 000 = 2 666 666 страниц можно записать на флешку (округленно до целого числа)
Второй вариант:
8*1024*1024*1024*8 = 68 719 476 736 Бит
68 719 476 736/24 000 = 2 863 311 страниц можно записать на флешку (округленно до целого числа)
Алоритм приготовления блюда быстрого питания:
1) Высыпать в емкость содержимое пакетика
2) Налить в емкость 200 мл горячей воды
3) Тщательно перемешать
Решение задачи на языке PascalABC:
<em>Program n1;
</em>
<em>Var a:array[1..16] of integer; i:integer; //Описываем переменные
</em>
<em>Begin
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> a[i]:=random(40)-20; //заполняем массив
</em>
<em> write(a[i],' '); //выводим значение каждого элемента массива
</em>
<em>End;
</em>
<em>writeln; //пропускаем строчку при выводе
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> if a[i] mod 2 = 0 then //условие чётности
</em>
<em> writeln('Элемент со значением (',a[i],') под номером #',i,' является чётным'); //вывод чётных элементов и их номеров
</em>
<em>End;
</em>
<em>End.</em>
Var x:real; f:real; begin writeln('Введите значение х '); readln(x); if x < 3 then f:= 1/(x*x*x - 6) else f:= -(x*x) +3*x +9; write('Знание х = ', x, ' Функция равна ', f);<span> end.</span>
