Определение букв в текте Опции

[teeny]

ЛЮДИ! ПОЖАЛУЙСТА ПОМОГИТЕ! Очень срочно!

Вот задача, плиз помогите решить!

В заданном тексте определить одинаковые или нет  первая, средняя, последняя
буквы. Сообщение вывести на дисплей.
Заданный текст: Собачка

Заранее спасибо!

[AlaRic]

Вот решение на скорую руку. Оформишь топик также и в следующий раз - удалю!

Код

program m2;
var s:string[10];
i:integer;
begin
s:='собачка';
if (s[1]=s[4]) and (s[4]=s[7]) then write('Все буквы одинаковы')
else
if s[1]=s[4] then write('Первая и средняя буквы одинаковы') else
if s[1]=s[7] then write('Первая и последняя буквы одинаковы') else
if s[4]=s[7] then write('Средняя и последняя буквы одинаковы') else
write('Одинаковых букв нет');
end.

Сообщение отредактировано: volvo - 17.12.2004 13:56

[Ivs]

Первую определять конечно же s[1], последнюю s[length(s)], среднюю s[length(s) div 2] ну и между ними поставь равенство.

[teeny]

Извините за название темы!
Я не знаа, что так нельзя (нежелательно называть темы)... Теперь буду знать!

Спасибо огромное за решение!