1)
<span>var </span>
<span>A:integer; </span>
<span>Begin </span>
<span>Readln(a); </span>
<span>If a<>0 then </span>
<span>If a<0 then writeln('a<0') else writeln('a>0') </span>
<span>Else writeln('a=0'); </span>
<span>End. </span>
2)
<span>Var </span>
<span>A,M,n:integer; </span>
<span>Begin
</span>readln(m);
readln(n);
<span>If m=n then writeln ('error') else </span>
<span>If m>n then a:=n else a:=m; </span>
<span>If (-20<=a) and (a<10) then writeln('Yes') else </span>
<span>Writeln('No');</span>
<span>End.</span>
javascript:var массив = [], A = prompt(); for (let сч = 0; сч < A; сч++) массив.push(Math.random() * 100); alert(массив.reduce(function (пр, зн) { return зн > A ? ++пр : пр; }, 0));
4 октября 1957 года СССР запустил первый искусственный спутник Земли, в результате чего отставание США стало видно невооруженным взглядом. Запуск первого искусственного спутника и стал причиной подписания президентом США Дуайтом Эйзенхауэром документа о создании в рамках министерства обороны Агентства по перспективным научным проектам и исследованиям - ARPA (Advanced Research Projects Agency).
В августе 1962 года Дж. Ликлайдером из Массачусетского технологического института была опубликована серия заметок, в которой обсуждалась концепция "Галактической сети" . Автор предвидел создание глобальной сети взаимосвязанных компьютеров, с помощью которой каждый сможет быстро получать доступ к данным и программам, расположенным на любом компьютере. По духу эта концепция очень близка к современному состоянию Интернета. В октябре 1962 года Ликлайдер стал первым руководителем этого компьютерного проекта. Управление Advanced Research Projects Agency сменило название на Defence Advanced Research Projects Agency в 1971 году, затем вернулось к прежнему названию ARPA в 1993 году и, наконец, снова стало именоваться DARPA в 1996 году. В статье используется текущее название - DARPA. Ликлайдер сумел доказать своим преемникам по работе - Ивану Сазерленду и Бобу Тейлору , а также исследователю Лоуренсу Робертсу всю важность этой сетевой концепции.
Леонард Клейнрок из MIT опубликовал первую статью по теории пакетной коммутации в июле 1961 года, а первую книгу - в 1964 году. Клейнрок убедил Робертса в теоретической обоснованности пакетных коммутаций (в противоположность коммутации соединений), что явилось важным шагом в направлении создания компьютерных сетей. Другим ключевым шагом должна была стать организация реального межкомпьютерного взаимодействия. Для изучения этого вопроса Робертс совместно с Томасом Меррилом в 1965 году связал компьютер , расположенный в Массачусетсе, с находившейся в Калифорнии. Связь осуществлялась по низкоскоростной коммутируемой телефонной линии. Таким образом, была создана первая в мире (хотя и маленькая) нелокальная компьютерная сеть. Результатом этого эксперимента стало понимание того, что компьютеры с разделением времени могут успешно работать вместе, выполняя программы и используя данные на удаленной машине. Стало ясно и то, что телефонная система с коммутацией соединений абсолютно непригодна для построения компьютерной сети. Убежденность Клейнрока в необходимости пакетной коммутации получила еще одно подтверждение.
1)uses crt;
var a,b:integer;
s:real;
begin
readln(a);
readln(b);
if (a+b>5) then s:=sqrt(a+b) else s:=sqr(a+b);
writeln(s);
end.
2)uses crt;
var a,b,c:integer;
pr:real;
begin
readln(a);
readln(b);
readln(c);
if (abs(a*b*c)>=10) then pr:=(a*b*c)/3 else pr:=(a*b*c)*(a*b*c)*(a*b*c);
writeln(pr);
end.
3)uses crt;
var a,b,sq:integer;
begin
readln(a);
readln(b);
if (a>b) then sq:=sqr(a);
if (b>a) then sq:=sqr(b);
writeln(sq);
end.
4)uses crt;
var a:integer;
begin
readln(a);
if (a<20) and (a>0) then a:=a-4 else a:=abs(a);
writeln(a);
end.
# Код на ruby 2.2.3p173
def zadanie(lineal_array, x, y)
k = 0
lineal_array.each {|element|
k = k + 1 if element < x or element > y
}
return k
end
# Примеры применения
p zadanie([1, 2, 3, 4, 5], 2, 3)