Question

С клавиатуры вводится строка из двух слов, разделённых пробелом. Составьте программу которая определяет: а) начинаются ли оба слова с одной и той же буквы. б) начинается ли второе слово с той же буквы на которое оканчивается первое слово.​

Answer 1

var s: string;

i: integer;

begin

readln(s);

for i:=1 to length(s) do if s[i]=' ' then begin

if s[1]=s[i+1] then

writeln('слова начинаются с одной и той же буквы')

else writeln('слова начинаются с разных букв');

if s[i-1]=s[i+1] then

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

else

write('второе слово не начинается с той же буквы, на которую заканчивается первое слово');

break;

end;

end.