С клавиатуры вводится строка из двух слов, разделённых пробелом. Составьте программу которая определяет: а) начинаются ли оба слова с одной и той же буквы. б) начинается ли второе слово с той же буквы на которое оканчивается первое слово.
Ответы
Ответ дал:
8
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.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
7 лет назад