программа формирует изображение 4-х квадратов со стороной 1 шаг на расстоянии 1 наш по горизонтали дрг от друга:
СД ДВА ПТ ПТ ПР ПР ПТ ПТ ПТ СД ДВА выбрать описание тела процедуры два в которой используется процедура квадрат:ПРОЦЕДУРА КВАДРАТ ШГ ПТ ШГ ПТ ШГ ПТ ШГ КН ПРОЦ.
а. сД КВАДРАТ ПТ ПТ ПР ПР ПТ ПР ПТ СД КВАДРАТ
Б. СД КВАДРАТ ПТ ПТ ПР ПР ПТ ПТ ПТ СД КВАДРАТ
В. СД КВАДРАТ ПТ ПТ ШГ ШГ ПТ ПР ПТ СД КВАДРАТ
Г. СД КВАДРАТ ПТ ПТ ПР ШГ ПТ ПР ПТ СД КВАДРАТ
Д. СД КВАДРАТ ПТ ПР ШГ ПР ПТ ПР ПТ СД КВАДРАТ

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

иероглифы обозначали целые слова и слоги, их было более 750

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы