Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
87781891293
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 40
#1

Проверить, начинается и оканчивается слово на одну и ту же букву

12.03.2013, 08:42. Просмотров 608. Ответов 2
Метки нет (Все метки)

Дано слово, проверить начинается и оканчивается слово на одну и ту же букву или нет)

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2013, 08:42
Ответы с готовыми решениями:

Проверить утверждение, что слово начинается и оканчивается на одну и туже букву
1) Дано слово,верно ли ,что оно начинается и оканчивается на одну и туже букву.

Начинается и оканчивается слово на одну и ту же букву или нет.
Дано слово, проверить начинается и оканчивается слово на одну и ту же букву или...

Определить, верно ли, что данное слово начинается и заканчивается на одну и туже букву
Дано слово.Верно ли что оно начинается и заканчивается на одну и туже букву?

Даны два слова. Верно ли, что первое слово начинается на ту же букву, которой оканчивается второе
помогите пожалуйсто решить 2 задачки.1)даны два слова.верно ли что первое слово...

Верно ли, что первое слово начинается на ту же букву, на которую заканчивается второе слово
Даны два слова.Верно ли, что первое слово начинается на ту же букву, на которую...

2
REZ@K
0 / 0 / 6
Регистрация: 10.12.2012
Сообщений: 7
12.03.2013, 11:46 #2
Лучший ответ Сообщение было отмечено 87781891293 как решение

Решение

вот один из вариантов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
st,s1:string;
i,j,k:byte;
begin
read (st);
st:=' '+st+' ';
for i:=1 to length (st) do
if (st[i]=' ') and (i<>length (st)) then
begin
s1:=st[i+1];
delete (st,i,2);
for j:=i to length (st) do
if (st[j]=s1) and (st[j+1]=' ') then
begin
k:=k+1;
break;
end;
end;
write (k);
end.
0
Федя Форточкин
68 / 82 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
12.03.2013, 12:09 #3
87781891293, вот, так проще
Pascal
1
2
3
4
5
6
7
8
9
var
st:string;
begin
read (st);
if st[1]=st[length (st)] then
writeln('1')
else
writeln('0');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2013, 12:09

Определить на какую букву оканчивается последнее слово
Определить на какую букву оканчивается последнее слово

Определить, на гласную или согласную букву оканчивается слово
Составьте программу, выясняющую на гласную или согласную букву оканчивается...

Определить на какую букву оканчивается четвертое слово в предложении.
1. В строке слова разделены пробелами. Определить на какую букву оканчивается...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru