Question

Cтроки. Паскаль.

1.Задано слово - последовательность произвольных символов. Сделать программу, в которой составляется слово перевертыш к данному ( символы записываются в обратной последовательности.)

 

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

Answer 1

{Первая задача}
var
  s, rez: string;  // строки
  i: integer;  // целое число (счетчик)

begin
  writeln('Введите строку:');
  readln(s);  //
  for i := length(s) downto 1 do  // просматриваем буквы, начиная с последней
    rez := rez + s[i];  // прибавляем букву к результату
  writeln(rez)  // выводим результат
end.