0 / 0 / 0
Регистрация: 20.11.2018
Сообщений: 16
1

Сформировать из S строку S1, удалив из S все буквы

21.11.2018, 12:10. Показов 820. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Запросить у пользователя строку S, содержащую латинские буквы и цифры. Сформировать из S строку S1, удалив из S все буквы. Строку S1 преобразовать в число. Вычислить сумму цифр полученного числа. Вывести на чистый экран строки S, S1, их длины и полученную сумму.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2018, 12:10
Ответы с готовыми решениями:

В строку SL перенести все буквы латинского алфавита, а в строку SU - все буквы русского алфавита
Ввести с клавиатуры строку S длиной до 80 символов из букв латинского и русского алфавитов. В...

Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку задом наперед, удалив из нее все цифры и пробелы
Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку задом наперед,...

Напечатать все слова, удалив из них все последующие вхождения первой буквы
Текст задан строкой: var St: string нужно напечатать все слова, удалив из них все последующие...

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

1
Эксперт Pascal/Delphi
6806 / 4565 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
21.11.2018, 12:49 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
{Запросить у пользователя строку S, содержащую латинские буквы и цифры. 
Сформировать из S строку S1, удалив из S все буквы. Строку S1 преобразовать в 
число. Вычислить сумму цифр полученного числа. Вывести на чистый экран 
строки S, S1, их длины и полученную сумму. }
var
  s1, s: string;
  err, k, sum, i: integer;
 
begin
  readln(s);
  s1 := s;
  for i := length(s1) downto 1 do
    if not (s1[i] in ['0'..'9']) then 
      delete(s1, i, 1);
  val(s1, k, err);
  while k > 0 do
  begin
    sum := sum + (k mod 10);
    k := k div 10;
  end;
  writeln(s, ' длина строки: ', length(s));
  writeln(s1, ' длина строки: ', length(s1));
  write('Сумма цифр: ', sum);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2018, 12:49
Помогаю со студенческими работами здесь

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

Сформировать из данной строки новую строку, удалив все кратные символы
написать программу на си: дана строка АААВВСС, сформировать из нее новую строку АВС,удалив все...

Дана символьная строка, содержащая буквы, цифры и пробелы. Написать строку задом наперед, удалив из нее все пробелы
Дана символьная строка, содержащая буквы, цифры и пробелы. Написать строку задом наперед, удалив из...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru