6) К какому типу переменных относится переменная real? a) Целый b) Символьный c) Вещественный d) Логический 7) К какому типу переменных относится переменная integer? a) Целый b) Символьный c) Вещественный d) Логический
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».
6)c-вещественный
7)a-целый
Объяснение: