Создайте документ, состоящий из 2 горизонтальных фрэймов. В левом фрэйме разместите изображение, например города. По
нажатию на отдельных элементах города во втором фрэйме
появляется описание данного элемента.

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

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

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

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

в одном байте восемь бит. следовательно 100/8=12.5   ответ 12.5