Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Vallery55
0 / 0 / 2
Регистрация: 10.01.2014
Сообщений: 7
#1

Составьте программу, приписывающую к слову X те буква слова Y, что используются при написания слова X - Pascal ABC

10.01.2014, 21:42. Просмотров 272. Ответов 2
Метки нет (Все метки)

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

Составьте программу определяющую совпадает ли 1-я букава слова X и последняя буква слова Y
Нужна ваша помощ)

Составьте программу подсчета того, сколько ращ в слове X встречается вторая буква этого слова
1.Составьте программу подсчета того, сколько ращ в слове X встречается вторая...

Составьте программу, которая из слова ИНФОРМАТИКА получит слова: ФОРМА, ТИК, ФОРТ
Помогите, пожалуйста:cry: Cоставьте программу, которая из слова ИНФОРМАТИКА...

Напечатать те слова последовательности, в которых первая буква слова входит в него ещё раз
Дана последовательность, состоящая из 10 слов. Напечатать те слова...

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

Если первая буква второго слова совпадает с последней буквой третьего слова, поменять местами второе и третье
Дан текст, слова которого отделяются друг от друга пробелами. Если первая буква...

2
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
10.01.2014, 22:41 #2
Лучший ответ Сообщение было отмечено Vallery55 как решение

Решение

Так что ли?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  x, y: string;
  i: byte;
 
begin
  Write('Введите слово X: ');
  Readln(x);
  Write('Введите слово Y: ');
  Readln(y);
  for i := 1 to Length(y) do
    if Pos(y[i], x) > 0 then
      x := x + y[i];
  Writeln(x);
end.
1
Vallery55
0 / 0 / 2
Регистрация: 10.01.2014
Сообщений: 7
10.01.2014, 23:20  [ТС] #3
огромное спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2014, 23:20
Привет! Вот еще темы с решениями:

Напечатать те слова последовательности, которые отличны от последнего слова и каждая буква входит в слово не менее двух раз
Прошу помощи с написанием программы без использования функций и записей. Задача...

Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
Составьте программу, которая из слова "ПРОГРАММА" составляет слова:...

Составьте программу вычеркивающую каждую 3-ю букву слова X
Помогите пожалуйста)

Составьте программу,определяюшую длину первого слова в предложение.
ПОМОГИТЕ ЕЩЁ ОДНУ МАЛЕНЬКУЮ ЗАДАЧКУ:confusion: Составьте...


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

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

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