Ответ:
впервые начинается как военная задумка в середине ХХ века в разгар холодной войны. В 1962 году Дж.К.Р. Ликлайдер, сотрудник Управления перспективных исследовательских проектов Министерства обороны США (на английском языке эта аббревиатура формулируется как DARPA) озвучил мысль о так называемой "галактической сети" из взаимосвязанных компьютеров.
В 1967 году Лоуренс Робертс из Массачусетского технологического института опубликовал план создания такой сети, которую назвал "Арпанет" (на английском – ARPANET, производное от DARPA). В соответствии с ним, два компьютера оказались впервые объединены в сеть в 1969 году.
В 1972 году эта технология была впервые представлена широкой публике на Международной конференции по компьютерным коммуникациям. В этом же году было отправлено первое сообщение по электронной почте.
Первый веб-браузер был создан в 1990 году сэром Тимом Бернерс-Ли. Он назывался WorldWideWeb и позже был переименован в Nexus[3]. Но первым распространённым браузером с графическим интерфейсом был NCSA Mosaic.
Объяснение:
1.
Var n,S,k:integer
Begin
Read(n);
for i:=1 to n do
Begin
Read(k);
if k mod 3 = 0 then
S:=S+k;
End;
Write(S);
End.
2. var S,k,n:integer;
begin
Read(n);
While n>=0 do
Begin
k:=n mod 10;
if k mod 2=0 then
S:=S+k;
n:=n div 10;
End;
Write (S);
End.
3. var i, a, b, c:integer;
Begin
read(a);
read(b);
read(c);
Fit i:=1 to b do
Begin
If I mod c=0 then write (i);
End;
End.
4. Var i:integer;
Begin
For i:=1 to 100 do
Writeln(i*i);
End.
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<span>var
a, b, c, x, y, z: integer;
Summa1, Summa2: integer;
begin
write('Яблоки(руб/кг): ');
readln(a);
write('Груши(руб/кг): ');
readln(b);
write('Апельсины(руб/кг): ');
readln(c);
writeln;
writeln('Понедельник: ');
write('Продано кг яблок: ');
readln(x);
write('Продано кг груш: ');
readln(y);
write('Продано кг апельсинов: ');
readln(z);
Summa1:=x*a+y*b+z*c;
writeln;
writeln('Вторник: ');
write('Продано кг яблок: ');
readln(x);
write('Продано кг груш: ');
readln(y);
write('Продано кг апельсинов: ');
readln(z);
Summa2:=x*a+y*b+z*c;
writeln;
writeln('Понедельник: ', Summa1, ' руб; Вторник: ', Summa2, ' руб');
end.</span></span>
Вот лягушка получилась :3
слева сама программка, а справа как получится