Cтроки. Паскаль. 1.Задано слово - последовательность произвольных символов. Сделать программу, в которой составляется слово перевертыш к данному ( символы записываются в обратной последовательности.) 2.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя.составить программу, в которой выводились бы все слова, в которых есть заданный символ.
Cтроки. Паскаль. 1.Задано слово - последовательность произвольных символов. Сделать программу, в которой составляется слово перевертыш к данному ( символы записываются в обратной последовательности.) 2.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя.составить программу, в которой выводились бы все слова, в которых есть заданный символ.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 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.