Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
inquisitor
15 / 6 / 16
Регистрация: 22.12.2015
Сообщений: 1,754
1

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

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

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

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

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

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

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

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

1
Puporev
Модератор
55423 / 42548 / 29403
Регистрация: 18.05.2008
Сообщений: 100,660
02.08.2017, 17:34 2
Лучший ответ Сообщение было отмечено scherbakovss201 как решение

Решение

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

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

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

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


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

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

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