Обработка информации Начало
Дано: число 47
+ 17
+ 36
Нет
Число
трёхзначное
Да
+2587
+ 284
ответ:
+ 116
Конец​

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

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

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

во время поиска по каталогам компьютер выдает файлы и папки в порядке их расположения по категориям каталога, например: каталог microsoft - выдавать будет файлы, которые будут находиться в этом каталоге. 

то есть система каталогов - это поиск по системным папкам, по каким-либо сборникам файлов. 

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