РЕШИТЕ КТО ОТВЕТИТ ПЕРВЫМ ОТМЕЧУ КАК ЛУЧШИЙ 1) Вывести на экран текст «лесенкой»
Вася
пошел
гулять
2) Вывести на экран рисунок из букв
Ж
ЖЖЖ
ЖЖЖЖЖ
ЖЖЖЖЖЖЖ
HH HH

командой print

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

program xxx;

  var i, n, s, k : integer;

                        a : array [1..20] of integer;

begin

  write('введите n=');

  readln(n)

  writeln('введите элементы массива а: ' );

  for i: =1 to n do

        readln(a[i]);

  s: =0;

  k: =0;

  for i: =1 to n do

      if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;

  if k=0 then write ('элементов кратных 8 - нет')

                      else write('сумма элементов кратных 8 =', s);

  readln

end.

клинописьдата рождения ~3300 г. до н. э. место рождения - междуречье. происхождение - оригинальная письменность. состав - 300 — 900 знаков для слоговой и идеографической систем; порядка 30 букв для фонетической адаптации на восточном побережье средиземного моря; 36 букв для старо-персидского слогового алфавита.  чтение - изначально справа налево, колонками; затем слева направо строками (начиная с 2400-2350 гг. до н. э. для рукописных текстов; со ii тыс. до н. э. для монументальных надписей). языки - полтора десятка языков и диалектов: шумерский, эламский, хурритский, ханаанский, угаритский, урартский, хеттский, старо-персидский и т. д. наиболее старые известные документы — таблички с административными документами шумерского царства. последний известный документ на вавилонском яз. относится к 75 г. н. э.  самые старые письменные документы, найденные на раскопках древнего города урук, относятся к 3300 году до н. э. появление письменности совпадает по времени с развитием городов и сопутствующей этому полной перестройкой общества. в то же время в месопотамии появляется колесо и знание о плавке меди.между тигром и евфратом находилось шумерское царство, а на востоке — царство элам. в городах этих довольно урбанизированных государств жили , торговцы, ремесленники. вне городов — крестьяне и пастухи.как торговые, так и адиминистративные контакты всех этих групп необходимо было запечатлеть в какой-то форме. именно из этой необходимости и появилась письменность.первыми систему записи создали шумеры. элам, где использовали в то время лишь набор разрозненных пиктограмм, адаптировал шумерскую письменность под свой язык.от счета — к письмудля учёта имущества в шумере и эламе использовали систему глиняных шариков. изначально каждый шарик обозначал один объект (корову, барана и т. п.) затем размер и форма комочка стали значащими. а вскоре на них стали появляться пометки (след пальца, засечка), изменяющие их «вес». эти шарики складывались в глиняный контейнер, который запечатывался цилиндрической печатью, идентифицирующей владельца. таким образом, например, если контейнер содержал информацию о количестве голов скота в стаде, его необходимо было разбить, чтобы провести подсчёт находящихся в нём шариков.к 3300 г. до н. э. на поверхности контейнера вместе с печатью владельца стало появляться краткое описание его содержимого. при этом необходимость разбивать контейнер при каждой проверке отпала. постепенно ставшие бесполезными шарики исчезли, контейнер из сферического стал плоским. так появились первые глиняные таблички с первыми числами: кружочками и уголками, выдавленными в глине, форма и размер которых указывали на обозначаемый объект и его количество. таким образом, первые символы письменности имели форму считаемых объектов (товаров). например, знак «коза». играя роль «символа-картинки», они по определению были пиктограммами.впоследствии стали образовываться устойчивые сочетания пиктограмм, смысл которых постепенно отходил от суммы смыслов картинок. например, знак «птица» вместе со знаком «яйцо» дали сочетание «плодовитость» не только в применении к птицам, но как абстрактный термин. эти сочетания уже были идеограммами («символ-идея»).к 3000 г. до н. э. получавшиеся пиктограммы и идеограммы стали использовать фонетически, составляя из этих символов («символ-звук») слова, не имеющие порой никакого, даже косвенного, отношения к изображённым предметам.одновременно изменяется и стиль письма. для записи все символы разложены на короткие отрезки (клинья — откуда название письменности), которые уже не надо было вырезать в глине, а можно было просто наносить при калама — специальной палочки с заострённым концом треугольной формы. параллельно с этим происходит разворот существующих символов на 90° против часовой стрелки.начиная со ii тыс. до н. э. клинопись распространяется по всему ближнему востоку.

1)

var a: array[1..20] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('удалили элементы из одинаковых цифр включая однозначные'); i : = 1; k : = 10; while i < = k do begin if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then begin if i = k then k : = k - 1 else begin for j : = i to k - 1 do a[j] : = a[j + 1]; k : = k - 1; end; end else i : = i + 1; end; for i : = 1 to k do write(a[i]: 4); end.

2)

var a: array[1..20] of integer; i, j, k,n: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('введите k(не должно содержать 1)='); readln(k); writeln('вставляем k перед всеми элементами где есть цифра 1'); i : = 1; n : = 10; while i < = n do begin if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then begin for j: =n+1 downto i+1 do a[j]: =a[j-1]; a[i]: =k; n: =n+1; i: =i+1; end; i : = i + 1; end; for i : = 1 to n do write(a[i]: 4); end.

3)

var a: array[1..10] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('меняем местами три первых и три последних элемента'); for i: =1 to 3 do begin k: =a[i]; a[i]: =a[i+7]; a[i+7]: =k; end; for i : = 1 to 10 do write(a[i]: 4); end.