Распечатать слова из первой строки, если они имеются во второй, найти сумму цифровых слов - Pascal ABC

  1. Сначала набираем текст в строку а затем ввести строку В. Распечатать слова из первой строки, если они имеются во второй, найти сумму цифровых слов.


textual

Код:

Var T1,T2,buf,buf1:string;
i,j,k:integer;
 
BEGIN
  Writeln ('введите текст');
  Readln (T1);
  Writeln ('введите текст 2');
  readln (T2);
  i:=1;
  while (i<=length(T1)) do
  begin
    j:=1;
    while ((i<=length(T1))and(T1[i]<>' ')) do
    begin
      Insert (T1[i], buf, j);
      j:=j+1;
      i:=i+1;
    end; 
      
    j:=1;
    while (j<=length(T2)) do
    begin
      k:=1;
      while ((j<=length(T2))and(T2[j]<>' ')) do
      begin
        Insert (T2[j], buf1, k);
        j:=j+1;
        k:=k+1;
      end;       
      if (buf1=buf) then writeln(buf);
      Delete (buf1, 1, length(buf1));
      j:=j+1;
    end;
    Delete (buf, 1, length(buf));
    i:=i+1;
  end;
END.


Похожие ответы
  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично

  1. Решите пожалуйста задачу на строки. Если можно можете еще объяснить что сделали. Вывести все буквы которые есть во всех словах. К примеру вводим слова: папа, мама Выводить должен: п,а,м

  1. Дан текст, в которой слова разделены пробелами, а в конце стоит точка. Если количество слов в тексте нечётное - вывести среднее слово; если чётное - вывести 2 средних слова.

  1. Дана строка, слова разделены одним пробелом, в конце точка. Если последняя буква последнего слова и первая буква слова минимальной длины одинаковы, то поменять их местами. В противном случае удалить слово минимальной длины. Буду очень благодарна за помощь.

  1. В введенной с клавиатуры строке удалить все слова, оканчивающие на букву "Е"Добавлено через 3 часа 44 минуты Если вдруг кому понадобится

  1. Дан двумерный массив, элементами которого являются отдельные символы.Напечатать слова, образованные нечетными элементами каждого столбца массива. Помогите пожалуйста, нужна написать на Паскале ABC.Добавлено через 8 минут Как переделать эту программу под мой случай задание для этой программы:написать слова, образованные четными элементами каждой строки массива const n=5; var a:array[1..n] of string;//массив строк s:array[1..n,1..20]of string;//двумерный массив слов i,j,k,p:integer; begin for i:=1 to n do begin write('Str ',i,':');//вводим строки readln(a[i]); end; i:=1;p:=0; repeat k:=1; for j:=1 to length(a[i]) do begin if a[i][j]=' ' then k:=k+1 //разбираем очередную строку на слова и считаем их else s[i,k]:=s[i,k]+a[i][j]; end; for p:=1 to k do if p mod 2=0 then write(s[i,p],' ');//четные слова в каждой строке выводим на экран i:=i+1; until i>n; readln end.

  1. Имеется программа которая должен вывести слово и значение. собственный алфавит юдин=1 2 3 4. например вывести обе значение слово и цифры, нид = 4 3 2 , слово ди= 3 2.

  1. Дана последовательность строк, заканчивающаяся строкой ‘END’. Получить все различные слова из этих строк, которые начинаются с ‘a’. с последовательностью я разобрался, а вот с нахождением 'a' не полчается

  1. Как определить длину пятого слова в строке и длину последнего слова в строке.

  1. Вывести на экран монитора и распечатать в виде таблицы значения аргумента x, значение функции y,(i=1,2,3...) и графики кривых a и b, закрасить область ограниченную графиками этих кривых. Кривые: a b