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

Строковые функции

23.10.2017, 09:10. Просмотров 124. Ответов 3
Метки нет (Все метки)

Дано число. Есть ли в сумме цифр числа цифры, входящие в это число.
2652->Сумма=15->есть
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2017, 09:10
Ответы с готовыми решениями:

Строковые переменные
1. Определить сколько в тексте знаков препинания (: . , ?). 2. Задан текст....

Строковые операции
Даны 3 переменные: имя,отчество,фамилия. Добавить к фамилии инициалы:...

Строковые функции
дана строка. определить в строке самое длинное слово. если их несколько,...

Строковые процедуры и функции
Помогите Пожалуйста уже всю голову сломал в поиске решения((( Задача...

написать програмку (строковые функции)
Привет всем! Нужно написать программу: в строке введённой с клавиатуры...

3
Puporev
Модератор
55464 / 42571 / 29422
Регистрация: 18.05.2008
Сообщений: 100,712
23.10.2017, 09:35 2
Это точно задание на строки?
0
Валера Кушнарев
0 / 0 / 0
Регистрация: 09.05.2017
Сообщений: 22
23.10.2017, 13:10  [ТС] 3
Да.
0
Puporev
Модератор
55464 / 42571 / 29422
Регистрация: 18.05.2008
Сообщений: 100,712
23.10.2017, 13:29 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var s,s1:string;
    sum,i:integer;
begin
writeln('Введите число(строку из цифр)');
readln(s);
sum:=0;
for i:=1 to length(s) do
sum:=sum+strtoint(s[i]);
write(s,'-> Сумма->',sum,'->');
s1:=inttostr(sum);
i:=1;
while(i<=length(s1))and(pos(s1[i],s)=0)do inc(i);
if i<=length(s1) then write('есть')
else write('нет')
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2017, 13:29

строковые переменные
всем привет. Помогите пожалуйста решить :-( строка вводится с клавиатуры....

строковые массивы
Помогите пажалуйста написать прогу...звучит она так: В строке местоимение...

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


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

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

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