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

Предыдущий
вопрос Следующий
вопрос

Пример решения 1:

program ReverseWord;

var
word, reverseWord: string;
i: integer;

begin
write('Введите слово: ');
readln(word);

reverseWord := '';
for i := length(word) downto 1 do
begin
reverseWord := reverseWord + word[i];
end;

writeln('Слово перевертыш: ', reverseWord);
end.

Пример решения 2:

program FindWordsWithChar;

var
sentence, word, charToFind: string;
i, j: integer;

begin
write('Введите предложение: ');
readln(sentence);

write('Введите символ для поиска: ');
readln(charToFind);

sentence := sentence + ' '; // добавляем пробел в конце, чтобы обработать последнее слово

word := '';
for i := 1 to length(sentence) do
begin
if sentence[i] <> ' ' then
begin
word := word + sentence[i];
end
else
begin
if pos(charToFind, word) > 0 then
begin
writeln('Слово с символом "', charToFind, '": ', word);
end;
word := '';
end;
end;
end.