Компьютер моей мечты - такой, который обладает гигантской пропускной в плане взаимодействия с пользователем. Лично я набираю этот текст на клавиатуре примерно на 1/20 от той скорости, с которой я бы его читал, а читаю этот текст я примерно на 1/3 от скорости моего мышления. Это крайне медленно. Прорывной компьютер должен быть на прямое считывание наших мыслей, никаких клавиатур, мышей и микрофонов. Естественно, у него должна быть нерушимая защита от взлома. И еще кое-что - на нем должна быть программа мощного ИИ для значительного усиления моих творческих, познавательных и коммуникативных Только делать ИИ умнее меня не стоит, ибо могут проявиться некоторые "непредсказуемые последствия". Хоть сейчас все это и кажется фантастикой, но примерно через 40-50 лет и прямая связь с мозгом, и ИИ уровня человека (или чуть повыше) вполне могут стать обыденностью, как это сейчас и произошло с Айфонами и интернетом.
Воот. Мне определенно следует меньше читать Тима Урбана...
1. var a:array[1..5,1..5] of integer; i,j,sum,min,n:Integer; begin min:=25; for i:=1 to 5 do begin Writeln('Введите места ', i,' спортсмена'); for j:=1 to 5 do Read(a[i,j]); end;
for i:=1 to 5 do begin for j:=1 to 5 do sum:=sum+a[i,j]; if sum<min then begin min:=sum; n:=i; sum:=0; end; end; Writeln(n, ' спортсмен лучший'); end.
2. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n,k:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i]>(3*(n-1)/2) then k:=k+1;
Writeln(k ,' команд(а,ы) имеют больше побед, чем поражений'); end.
3. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i] = 3*(n-1) then Write(i, ' '); Write(' команд(а,ы чемпионат без поражений!'); end.
4. var a:array[1..20,1..20] of integer; sum:array[1..20] of integer; i,j,n,k:integer; begin Writeln('Введите количество команд'); Readln(n); For i:=1 to n do for j:=1 to n do if i = j then a[i,j]:=0 else begin Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды'); Read(a[i,j]); end; For i:=1 to n do for j:=1 to n do if a[i,j]<>1 then sum[i]:= sum[i]+ a[i,j];
for i:=1 to n do if sum[i] > (3*(n-1))/2 then k:=k+1; Write(k,' команд выиграли более половину игр'); end.
32=2^5
4*5=20 бит информации о 4-х из 32
64=2^6
6*5=30 бит информации о 5-и из 64
Результат второй лотереи несёт больше информации, чем результаты первой в 30/20=1,5 раза