Question

составьте программу позволяющую определить совпадают ли первая буква слова Х и последняя буква слова У.(pascal abc.net)

Answer 1

var
  x, y: string;
begin
  write('Введите слово X: ');
  readln(x);
  write('Введите слово Y: ');
  readln(y);
  if x[1] = y[length(y)] then writeln('Буквы совпадают.')
  else writeln('Буквы не совпадают.')
end.

Answer 2

Конечно! Вот пример программы на языке Pascal ABC.NET, которая определяет, совпадают ли первая буква слова X и последняя буква слова Y:

pascalCopy code
program CheckFirstLastLetter;
var
  X, Y: string;
begin
  writeln('Введите слово X:');
  readln(X);
  
  writeln('Введите слово Y:');
  readln(Y);
  
  if (length(X) > 0) and (length(Y) > 0) and (upcase(X[1]) = upcase(Y[length(Y)])) then
    writeln('Первая буква слова X совпадает с последней буквой слова Y.')
  else
    writeln('Первая буква слова X не совпадает с последней буквой слова Y.');
  
  readln;
end.

В этой программе пользователю предлагается ввести два слова: X и Y. Затем программа проверяет, совпадают ли первая буква слова X и последняя буква слова Y. Если совпадение есть, выводится сообщение "Первая буква слова X совпадает с последней буквой слова Y". Если нет, выводится сообщение "Первая буква слова X не совпадает с последней буквой слова Y".