Question

Pascal ABC/ C клавиатуры вводят два слова. Составить программу, которая проверяет, не начинается ли второе слово с той же буквы, которой оканчивается первое слово

Answer 1

var s1,s2: string;

begin

writeln('Введите 2 слова:');

readln(s1);

readln(s2);

if s1[length(s1)]=s2[1]

then writeln('второе слово начинается с той же буквы, которой оканчивается первое слово')

else writeln('последняя буква первого слова отличается от первой буквы второго слова');

end.

Answer 2

Для решения этой задачи на Pascal ABC/C нужно выполнить следующие шаги:

1. Ввести два слова с клавиатуры.
2. Получить последнюю букву первого слова.
3. Получить первую букву второго слова.
4. Сравнить эти буквы.
5. Вывести результат проверки.

Вот как может выглядеть программа на Pascal ABC/C:

pascalCopy code
program CheckFirstLastLetters;
var
  firstWord, secondWord: string;
  firstLastLetter, secondFirstLetter: char;
begin
  writeln('Введите первое слово: ');
  readln(firstWord);

  writeln('Введите второе слово: ');
  readln(secondWord);

  // Получаем последнюю букву первого слова
  firstLastLetter := firstWord[length(firstWord)];

  // Получаем первую букву второго слова
  secondFirstLetter := secondWord[1];

  // Сравниваем буквы и выводим результат
  if firstLastLetter = secondFirstLetter then
    writeln('Второе слово начинается с той же буквы, которой оканчивается первое слово.')
  else
    writeln('Второе слово НЕ начинается с той же буквы, которой оканчивается первое слово.');

  readln;
end.

Программа позволяет пользователю ввести два слова и затем сообщает, начинается ли второе слово с той же буквы, которой оканчивается первое слово.