Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>
Для начала рассмотрим число 0.000041. Нам нужно преобразовать данное число в дробь, у которой первая цифра после запятой неравна 0. Всего в записи 5 нулей, следовательно это число можно записать как 4.1*10^(-5).
Получаем такое выражение: 4.1*10^(-5)*10^2
Складываем степени десяток, так как основания одинаковые. Получаем 4.1*10^(-3).
<span><em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
</span><span>begin
var s:=ReadlnString('Введите имя и фамилию:');
var g:=ReadlnString('Введите год рождения:');
var n:=ReadInteger('Сколько раз повторить вывод?');
loop n do Writeln(s,NewLine,g)
end.
<u>Пример</u>
Введите имя и фамилию: Иванов Сергей
Введите год рождения: 24.06.2001
Сколько раз повторить вывод? 3
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001</span>
1. 16=2 степени i
2 в степени 4=2 в степени i
i=4
значит, 1 буква несет 4 бита информации
ответ: 4 * 16 = 64 бита