Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
1

Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к"

16.12.2009, 14:05. Просмотров 1346. Ответов 8
Метки нет (Все метки)


Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к"
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2009, 14:05
Ответы с готовыми решениями:

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща",...

В слове x перед каждой буквой "к", которой предшествует буква "с", вставить бкуву "н"
В слове x перед каждой буквой "к", которой предшествует буква "с", вставить бкуву "н"....

Определить, есть ли в слове буква "M" или "Н"
Дано слово длиной пять символов. Определить, есть ли в нём буква "М" или буква "Н". Вывести...

Написать программу на языке паскаль, которая из слов "a" и "b" составит новое слово "c"
Начало программы: var a,b,c:string; begin writeln('Введите строку a'); readln(a)...

8
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,227
16.12.2009, 14:12 2
Pascal
1
2
3
4
5
6
7
8
9
var
x:string;
i,f:integer;
begin
readln(x);
for i:=1 to length(x)do
if (i mod 2=0)and(a[i]='k')and(a[i+1]='a')then f:=1;
if f=1 then writeln('yes')else writeln('no');
end.
1
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
16.12.2009, 14:19  [ТС] 3
СПАСИБО большое...есть ещё задачка...

написать программу для подсчёта суммы мест, на которых в слове X стоит буква "в"
0
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,227
16.12.2009, 14:32 4
Цитата Сообщение от Настёна_19 Посмотреть сообщение
СПАСИБО большое...есть ещё задачка...

написать программу для подсчёта суммы мест, на которых в слове X стоит буква "в"
Pascal
1
2
3
4
5
6
7
8
9
var
x:string;
i,s:integer;
begin
readln(x);
for i:=1 to length(x)do
if (a[i]='b')then s:=s+i;
writeln(s);
end.
0
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
16.12.2009, 14:37  [ТС] 5
она не считает сумму...
0
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,227
16.12.2009, 14:42 6
Какую букву вы ищете? Я писал для буквы b, если вам нужна русская буква в, замените b на в строке 7
1
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
16.12.2009, 14:46  [ТС] 7
заменяла,
программа всё равно пишет 0...

Добавлено через 2 минуты
0
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,227
16.12.2009, 14:48 8
Привычка дурная называть всё буквой а.
Замените в 7 строке а на х
Pascal
1
if (x[i]='b')then s:=s+i;
1
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
16.12.2009, 14:49  [ТС] 9
СПАСИБО!!!!

Добавлено через 12 секунд
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2009, 14:49

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

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами...

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

Составить программу, в которой каждая буква "а", которая встречается в тексте, заменить на группу символов "ку"
Составить программу, в которой каждая буква "а", которая встречается в тексте, заменить на группу...

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


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

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

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