ЛЮДИ! ПОЖАЛУЙСТА ПОМОГИТЕ! Очень срочно!
Вот задача, плиз помогите решить!
В заданном тексте определить одинаковые или нет первая, средняя, последняя
буквы. Сообщение вывести на дисплей.
Заданный текст: Собачка
Заранее спасибо!
Полная версия: Определение букв в текте
Вот решение на скорую руку. Оформишь топик также и в следующий раз - удалю!
Код
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.
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.
Первую определять конечно же s[1], последнюю s[length(s)], среднюю s[length(s) div 2] ну и между ними поставь равенство.
Извините за название темы!
Я не знаа, что так нельзя (нежелательно называть темы)... Теперь буду знать!
Спасибо огромное за решение!
Я не знаа, что так нельзя (нежелательно называть темы)... Теперь буду знать!
Спасибо огромное за решение!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.