Screen 12
line(20,10)-(30,20),b
line(40,10)-(50,20),b
line(60,10)-(70,20),b
line(80,10)-(90,20),b
line(100,10)-(110,20),b
line(10,20)-(20,30),b
line(30,20)-(40,30),b
line(50,20)-(60,30),b
line(70,20)-(80,30),b
line(90,20)-(100,30),b
Найдём общее число символов:
4 * 30 * 50 = 6000 символов
I - объём
I = 4500 байтов = 36000 бит
Чтобы найти количество символов найдем i.
N = 2 в степени i
i = 36000 / 6000 = 6
N = 64
Ответ: 64 символа в алфавите.
14. Вася,Галя,Толя,Миша,Лена
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
<u>Пример</u>
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55