Получить из сллва "математика" слово "тематика" ( в pascal)

Для получения слова "тематика" из слова "математика" в Pascal можно воспользоваться следующим алгоритмом:

1. Создать новую переменную типа string, например, "новое_слово".
2. Пройти по каждой букве в исходном слове "математика" с помощью цикла.
3. Если текущая буква не равна 'м' (первая буква слова "математика"), то добавить её к переменной "новое_слово".
4. Продолжать добавлять каждую букву к переменной "новое_слово" до тех пор, пока не будет достигнута буква 'т' (первая буква слова "тематика").
5. Вывести полученное слово "тематика".

Пример кода на Pascal:

program ExtractWord;
var
  originalWord, newWord: string;
  i: integer;
begin
  originalWord := 'математика';
  newWord := '';
  
  for i := 1 to Length(originalWord) do
  begin
    if originalWord[i]  'м' then
      newWord := newWord + originalWord[i]
    else
      Break;
  end;
  
  writeln(newWord);
end.

После выполнения этого кода переменная "newWord" будет содержать слово "тематика".

Для решения задачи по извлечению части строки в языке программирования Pascal можно воспользоваться стандартными функциями работы со строками, такими как Copy. Эта функция позволяет извлекать подстроку из заданной строки, начиная с определённой позиции и определенной длины.

Рассмотрим шаги, которые необходимо выполнить для извлечения слова "тематика" из слова "математика":

1. Определим исходную строку: "математика".
2. Нам нужно извлечь подстроку, начиная со второго символа и до конца строки (всего 8 символов).

Теперь напишем программу на Pascal, которая решает эту задачу:

program ExtractSubstring;

var
  original, result: string;
begin
  original := 'математика';
  { Извлекаем подстроку начиная со второго символа длиной 8 символов }
  result := Copy(original, 2, 8);
  { Выводим результат на экран }
  writeln('Извлеченное слово: ', result);
end.

Объяснение программы:

• Объявление переменных: Мы объявили две строковые переменные original и result. original содержит исходное слово, из которого мы будем извлекать подстроку, а result будет хранить результат.

• Функция Copy: Эта функция используется для извлечения подстроки. Она принимает три параметра: строку, начальную позицию и количество символов для извлечения. В нашем случае Copy(original, 2, 8) означает, что мы начинаем с позиции 2 и извлекаем 8 символов.

• Вывод результата: Используется стандартная процедура writeln для вывода получившейся подстроки на экран.

Таким образом, программа извлечет слово "тематика" из слова "математика" и выведет его на экран.

program RemoveLetter;

var word, newWord: string; i: integer;

begin word := 'математика';

for i := 1 to Length(word) do

if word[i]  'м' then
  newWord := newWord + word[i];
  

writeln(newWord); end.