Program fofgogjoj; var a,b,c,d:integer; begin for c:=0 to 7 do begin a:=c+2; d:=9-c; for b:=0 to 9 do begin if (b<>c)and(b<>a)and(b<>d) then Writeln(a,b,c,d); Writeln; end; end; readln; end.
1)От 100 до 900 существует 801 число, для представления 801 различных чисел нужно 10 бит, 2 в 10-й степени =1024, а 2 в 9-й степени только 512. 128х5х10=6400 бит=800 байт 2)Известно, что с бит можно закодировать 2N различных чисел. Поскольку 26 < 119 < 27 и для каждого спортсмена число бит одинаково, то для записи каждого из 119 номеров необходимо 7 бит памяти. Поскольку промежуточный финиш велосипедистов, то информационный объем сообщения составит 70*7 бит=490 бит. 7)Решение: N = 10 х 5 + 4 х 8 = 82 N = 2i = 128 i = 7ответ: 7 бит 10)бщее количество ключей на всех уровнях 16*8=128 (чет много=)) Нам надо найти, в какую степень надо возвести 2, чтобы получить 128. 2^x=128 x=7 Вот собственно и ответ. 7 бит
begin // а) writeln('Результаты сдачи экзамена:'); var a:=ArrRandom(15,2,5); a.Println; // генерируем и выводим массив оценок var k:=a.Where(x->x=2).Count; // подсчитываем количество двоек writeln('Не сдали экзамен: ',k,' чел. Это ',100*k/15:4:1,'%'); // выводим на эран результаты // б) writeln('Данные по продаже компьютеров:'); var b:=ArrRandom(7,5,20); b.Println; // генерируем и выводим результаты продаж writeln('По возрастанию:'); b.Sorted.Println; // сортируем по возрастанию и выводим end.
Пример: Результаты сдачи экзамена: 3 3 3 2 4 3 4 4 3 3 5 2 2 5 5 Не сдали экзамен: 3 чел. Это 20.0% Данные по продаже компьютеров: 16 20 16 14 5 18 16 По возрастанию: 5 14 16 16 16 18 20
var
a,b,c,d:integer;
begin
for c:=0 to 7 do
begin
a:=c+2;
d:=9-c;
for b:=0 to 9 do
begin
if (b<>c)and(b<>a)and(b<>d) then
Writeln(a,b,c,d);
Writeln;
end;
end;
readln;
end.