Question

в паскале решите задачу :)       1. В строке слова разделены пробелами. Определить на какую букву оканчивается четвертое слово в предложении.   2.Дана последовательность слов. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв. 

Answer 1

1) Pascal ABC.NET

var s:string; p:boolean; i,k:integer;

begin

p:false;

k:=0;

read(s);

for i:=1 to lenth(s) do

begin

if s[i]=' ' then inc(k); 

if k=5 then p:=true else p:=false;

if p then writeln(s[i-1]);

end;

end.

 

вторая задачи без компа сложная, прости, нужно компилить и проверять

 

 

 

Answer 2

Конечно! Вот решение задачи на языке Pascal:

1. Определение последней буквы четвертого слова в предложении:

pascalCopy code
program LastLetter;
var
  sentence: string;
  words: array of string;
  lastLetter: char;
begin
  writeln('Введите предложение:');
  readln(sentence);
  
  words := sentence.Split(' ');
  
  if Length(words) >= 4 then
  begin
    lastLetter := words[3][Length(words[3])];
    writeln('Последняя буква четвертого слова: ', lastLetter);
  end
  else
    writeln('В предложении недостаточно слов.');
end.

2. Печать слов последовательности, удовлетворяющих условию без повторяющихся букв:

pascalCopy code
program NonRepeatingWords;
var
  words: array of string;
  i: integer;
  firstWord: string;
  hasRepeatingLetters: boolean;
begin
  writeln('Введите последовательность слов:');
  readln(words);
  
  if Length(words) > 0 then
  begin
    firstWord := words[0];
    
    for i := 1 to High(words) do
    begin
      hasRepeatingLetters := false;
      
      for j := 1 to Length(words[i]) do
      begin
        if Pos(words[i][j], words[i]) > 0 then
        begin
          hasRepeatingLetters := true;
          break;
        end;
      end;
      
      if (not hasRepeatingLetters) and (words[i] <> firstWord) then
        writeln(words[i]);
    end;
  end
  else
    writeln('Последовательность слов пуста.');
end.

Обратите внимание, что эти решения приведены без дополнительной проверки на ввод данных и могут не обрабатывать некоторые исключительные случаи, такие как пустая строка или пустая последовательность слов. Решения предоставлены для общего понимания алгоритма решения задачи на языке Pascal.