1.
1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша; kt, kr, kk - количество тетрадей, ручек и карандашей)
2.
а) значения функции y=х(в квадрате)
var y,x: real
б) площади прямоугольника
var a,b,s: real
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: real
Очень медленно, но уже практически все перейдут на IPv6, тем самым расширяя сеть до бесконечности. Внешний адрес теперь будет практически у каждого устройства, включенного в сеть.
Поисковые машины, с развитием кибернетики станут умнее, ранжировка поисковых запросов станет намного эффективнее, находить информацию станет всё проще и быстрее. Такие вещи, как голосовой поиск, станут более популярны и эффективны. И это только интернет. Но есть и другая сторона медали. Паспорта и даже ваши данные - всё это, через каких-то 10-15 лет полностью уйдут в сеть, а обычному человеку ничего не останется, как доверять третьим лицам. Тоесть об анонимности можно забыть.