Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
scherbakovss201
11 / 2 / 0
Регистрация: 22.12.2015
Сообщений: 1,020
#1

Вычеркнуть из слов Х и Y буквы, одновременно используемые при написании каждого из этих слов - Turbo Pascal

02.08.2017, 16:53. Просмотров 182. Ответов 1
Метки нет (Все метки)

те буквы, что одновременно используются при написании каждого из этих слов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.08.2017, 16:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычеркнуть из слов Х и Y буквы, одновременно используемые при написании каждого из этих слов (Turbo Pascal):

Ввести от 1 до 30 слов и сделать вывод этих слов в обратном порядке - Turbo Pascal
Текст задания: Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв, между соседними...

Текстовый файл. Вывести номер строки в которой больше всего слов и кол-во этих слов - Turbo Pascal
в текстовом файле в нескольких строках записаны слова через запятую, вывести номер строки в которой больше всего слов и кол-во этих...

Даны два слова. Поменяйте местами буквы этих слов, занимающие одинаковые позиции - Turbo Pascal
Даны два слова. Поменяйте местами буквы этих слов, занимающее одинаковые позиции.

Даны два слова. Поменяйте местами буквы этих слов занимающие одинаковые позиции - Turbo Pascal
6) Даны два слова. Поменяйте местами буквы этих слов занимающие одинаковые позиции

Из массива слов вывести все согласные буквы из слова наибольшей длины и число повторений этих букв - Pascal
Дан массив из n слов произвольной длины(длина слова не превышает 80 символов). Вывести все согласные буквы, содержащиеся в слове наибольшей...

Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы - Pascal
Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы 'b'

1
Puporev
Модератор
52389 / 40236 / 13575
Регистрация: 18.05.2008
Сообщений: 92,996
02.08.2017, 17:34 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var x,y:string;
    c:char;
    i,j:integer;
begin
clrscr;
writeln('Введите 1 слово');
readln(x);
writeln('Введите 2 слово');
readln(y);
for i:=length(x) downto 1 do
if pos(x[i],y)>0 then
 begin
  c:=x[i];
  for j:=i downto 1 do if x[j]=c then delete(x,j,1);
  for j:=length(y) downto 1 do
  if y[j]=c then delete(y,j,1);
 end;
if x='' then writeln('В первом слове все символы удалены')
else writeln('Первое слово= ',x);
if y='' then writeln('В втором слове все символы удалены')
else writeln('Второе слово= ',y);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.08.2017, 17:34
Привет! Вот еще темы с ответами:

Дана строка, которая состоит из слов, разделенных пропусками. Определить количество слов содержащих ровно три буквы "а" - Pascal
Дана строка, которая состоит из слов, разделенных пропусками. Определить количество слов содержащих ровно три буквы "а" Дано рядок, що...

Определить, у всех ли слов в одномерном массиве слов нет буквы "о" - Turbo Pascal
У всех ли слов в одномерном массиве слов нет буквы "о"?

Составить таблицу слов данного текста, начинающихся с буквы"А", с указанием числа повторений каждого слова - Turbo Pascal
Составить таблицу слов данного текста, начинающихся с буквы"А", с указанием числа повторений каждого слова

Дана строка и два слова. Заменить в строке одно из этих слов на другое - Pascal
Дана строка и два слова. Заменить в строке одно из этих слов на другое Добавлено через 20 минут пожалуйста!!!! срочно нужно!!!


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

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

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