Хелп 1)расположите в порядке возрастания 2060кбайт,20байт,200бит,2000байт,2б
2)Сообщение записанное буквами из 64хсимвольного алфавита содержит 116 символов какой объем информации оно несет?
3)Информационное сообщение объемом 6кбайт содержит 6144 символа сколько символов содержит алфавит,при которого записано это сообщение?

Трехзначное число является палиндромом если первая и третья цифры в десятичной записи равны между собой.

/* функция определения палиндром или нет.
 * параметр - исходное число.
 * возвращает не 0, если палиндром, 0 - если не палиндром */
int is_palindrom (int x)  {
  /* вычисляем первую (младшую) цифру в десятичной записи */
  int digit1 = x % 10;
  /* вычисляем третью (старшую) цифру в десятичной записи */
  /* по условию на входе 3-значное число, поэтому без доп. % 10 */
  int digit3 = x / 100;  
  return (digit1 == digit3);
}

Объяснение:

const

 n = 10;

 ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);

var

 i:integer;

 is_first_pol:boolean;

 raz_pol:integer;

begin

 

 raz_pol:=0;

 is_first_pol:=true; // флаг того, что найденное положительное число - первое

 

 for i:=1 to n do begin

   

   if (ar[i] > 0) then

     

     if (is_first_pol) then begin

       // если найденное полодительное число - первое, то

       raz_pol:=ar[i]; // в нашу разницу заносим это число

       is_first_pol:=false; // меняем флаг

     end

     else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу

 

 end;

 

 writeln(raz_pol);

end.