Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Ответ:
впервые начинается как военная задумка в середине ХХ века в разгар холодной войны. В 1962 году Дж.К.Р. Ликлайдер, сотрудник Управления перспективных исследовательских проектов Министерства обороны США (на английском языке эта аббревиатура формулируется как DARPA) озвучил мысль о так называемой "галактической сети" из взаимосвязанных компьютеров.
В 1967 году Лоуренс Робертс из Массачусетского технологического института опубликовал план создания такой сети, которую назвал "Арпанет" (на английском – ARPANET, производное от DARPA). В соответствии с ним, два компьютера оказались впервые объединены в сеть в 1969 году.
В 1972 году эта технология была впервые представлена широкой публике на Международной конференции по компьютерным коммуникациям. В этом же году было отправлено первое сообщение по электронной почте.
Первый веб-браузер был создан в 1990 году сэром Тимом Бернерс-Ли. Он назывался WorldWideWeb и позже был переименован в Nexus[3]. Но первым распространённым браузером с графическим интерфейсом был NCSA Mosaic.
Объяснение:
Var i:integer;
begin
for i:=1 to 10 do writeln(i) ;
end.
Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.
Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.
сумму не понятно чего?