Question

даны два слова, верно ли, что одно из слов наченаеться на ту же букву, на на которую заканчивается другое если да то вывести букву, иначе — соответствующие сообщение​

Answer 1

Ответ:

program z1;

var s1,s2:string;

begin

write('Введите 1 слово: ');

readln (s1);

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

readln (s2);

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

begin

if s1[1]=s2[length(s2)] then writeln ('Буква ',s1[1]);

if s2[1]=s1[length(s1)] then writeln ('Буква ',s2[1])

end

else write ('Ни одно из слов не начинается на ту же букву, на на которую заканчивается другое')

end.

Объяснение:

Прописные буквы (А) и строчные буквы (а) - разные буквы!!!

Вводим 2 слова.

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

В противном случае выводим сообщение, что буквы не совпадают.