Какой компонент предназначен для ввода и отображения короткого текстового строки? -button -memo -edit -label

ответ:

edit

объяснение:

var

  s : string;

  i : integer;

  f : boolean;

begin

  readln (s);

  writeln ('тут ', length (s), ' символов');

  f : = true;  

for i : = 1 to length (s) div 2 do

    if s[i] < > s[length (s) - i + 1] then f : = false;

  writeln ('это слово является перевертышем: ', f); //true/false

end.

 

var

  s : string;

  i, k, count : integer;

  c : char;

begin

  readln (s);

  count : = 0;

  for i : = 1 to length (s) do

    if s[i] < > ' ' then

    begin

        c : = s[i];

        k : = i + 1;

        break;

    end;

  for i : = k to length (s) do

    if (s[i] = ' ') and (c < > ' ') then

    begin

        if s[i - 1] = c then inc (count);

        c : = ' ';

    end

    else if c = ' ' then c : = s[i];

  if (c < > ' ' ) and (s[length (s)] < > ' ') and (c = s[length (s)]) then inc (count);

  writeln (count);

end.

Ну, условие крайне странное, я понимаю так, что числовой промежуток дан в 10тичной системе счисления, и каждое целое число на промежутке необходимо перевести в 16ричное. если промежуток [28; 30], то это означает что туда входят такие целые числа как 28, 29, 30 (если промежуток обозначается квадратными скобками '[' и ']', то это включая числа что указаны его границами, если же круглыми '(' и ')', то не включая их. перейдем к переводу десятичных чисел в шестнадцатиричную систему счислени. для этого делем число на 16, паралельно записывая его остаток и продолжая до тех пор, пока оно не станет меньше 16. 28 / 16 = 1; остаток 12 тут ничего сложного, пользуемся табличкой переводов, смотрим, 12 из десятичной в 16ричной это буква c, а 1 оставляем как есть. теперь запишим полученные числа: 1c - это 28 в 16ричной точно так же переводим из 10тичной в 16ричную 29: 29/16 = 1; остаток 13 получается 1d ну и как не трудно догадаться, 30 в 16ричной будет 1e. но для наглядности проведем расчёты: 30/16=1; остаток 14 постскриптум: — сформулированно крайне не понятно и вот почему: нижним индексом, по обыкновению, указывают систему счисления текущего числа, но тогда нет никакого смысла переводить в 16ричную систему из 16ричной. — другой вариант, что 28 и 30 это числа указанные не в 16ричной, но они могут быть в любой системе счисления где больше 8 цифр : ) если предерживаться первого предположения, то нужно просто записать все цифры 16ричной системы счисления от 28 до 30 включительно, тогда это будет: 28, 29, 30 что вообще смысла не имеет, так что не претендую на идеально правильное решение, но это единственное адекватное, что пришло мне в голову. может этот идеотизм как-то и по другому закручен : d