Девочки аня, маша и варя купили себе флешки синего, белого и красного цветов. на вопрос, у кого из них какая флешка, одна из девочек ответила: " у ани флешка синяя, у маши - не синяя, а у вари - не белая". впоследствии выяснилось, что в ответе верно сказано о цвете флешки только одной девочки. какого цвета флешка у каждой из девочек?

Аня - синяя маша- белая варя-красная

Const n=5; var       i,j,pa,pb,pc,pd: integer;     a,b,c,d: array[1..n,1..n]of integer; function prost(n: integer): integer; begin var i: integer; result: =0; for i: =2 to n div 2 do   if n mod i=0 then     begin     result: =1;     break;     end end; procedure otvet(p: integer; s: string); begin if p=0 then writeln('на диагоналях матрицы ',s,' есть простые числа')     else writeln('на диагоналях матрицы ',s,' нет простых чисел'); end; begin  pa: =1;   pb: =1;   pc: =1;   pd: =1; writeln('массив а': 18,'массив b': 18,'массив c': 18,'массив d': 18); for i: =1 to n do     begin     for j: =1 to n do       begin       a[i,j]: =random(100,900);       b[i,j]: =random(100,900);       c[i,j]: =random(100,900);       d[i,j]: =random(100,900);       if (i=j) or (j=n+1-i) then           begin           pa: =pa*prost(a[i,j]);           pb: =pb*prost(b[i,j]);           pc: =pc*prost(c[i,j]);           pd: =pd*prost(d[i,j]);           end;       end;     end; for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 4);   write('|');   for j: =1 to n do write(b[i,j]: 4);   write('|');   for j: =1 to n do write(a[i,j]: 4);   write('|');   for j: =1 to n do write(a[i,j]: 4);   write('|');   writeln;   end;     otvet(pa,'a'); otvet(pb,'b'); otvet(pc,'c'); otvet(pd,'d'); end.

Сложно сказать точно, когда было отправлено первое в мире сообщение по сети. но зато точно известно, когда впервые был использован ставший иконой интернета символ @ — ровно 36 лет назад. еще в 60-е гг. появились первые суперкомпьютеры, которые могли обслуживать множество терминалов. тогда же появились первые программы для передачи сообщений в реальном режиме времени между пользователями — с одного терминала на другой. но такие сообщения нельзя было передавать на другой компьютер. в октябре 1971 г. инженер компании bbn рэй томлинсон (ray tomlinson) модернизировал программу sndmsg для операционной системы tenex таким образом, что стало возможным передавать отдельные сообщения между пользователями разных хостов. для идентификации хоста, на который передается сообщение, томлинсон выбрал символ @, что в языке соответствует предлогу «at». после этого стало возможным указывать в одной строчке и имя пользователя, и адрес хоста. именно тогда, в октябре 1971 г. — ровно 36 лет назад — было отправлено первое электронное письмо по сети arpanet. оно было успешно отослано с суперкомпьютера bbn-tenexb (это сетевое имя машины, так как системы dns тогда не существовало) на суперкомпьютер bbn-tenexa и распечатано на терминале. два компьютера и два терминала, участвовавшие в том эксперименте, изображены на фотографии. модифицированная томлинсоном программа sndmsg, а также новая программа readmail вошли в следующую версию tenex и стали стандартными средствами для передачи электронных сообщений. так появилась первая электронная почта, которая потом обросла протоколами вроде pop, imap и smtp, но практически в неизменном виде сохранилась до наших дней. в далеком 1971 г. новое открытие не казалось таким значительным, поэтому никто не позаботился записать точную дату отправки первого почтового сообщения и его текст. программисты просто делали свою работу и расширяли функциональность операционной системы. действительно, о каком масштабе можно говорить, когда в сеть arpanet тогда входило около 15-ти компьютеров? любопытно, когда так получается — ты просто работаешь, а спустя десять-двадцать лет узнаешь, что твое имя вошло во все справочники и энциклопедии. рэй томлинсон говорит, что он совершенно забыл текст первого сообщения, но подозревает, что это был обычный набор символов вроде «qwertyuiop» или «testing 1–2-3».