Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 2
Регистрация: 02.10.2013
Сообщений: 153

Ввести строку. Определить содержится ли в первой половине слова +

30.10.2013, 15:47. Показов 1284. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ввести строку. Определить содержится ли в первой половине слова +
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.10.2013, 15:47
Ответы с готовыми решениями:

Ввести строку Определить содержится ли в первой половине слова +
1.Ввести строку. Определить содержится ли в первой половине слова +

Ввести число. Определить сумму цифр в первой половине числа .
Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6.

Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6
Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6 пожалуйста помогите

5
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
30.10.2013, 19:56
Цитата Сообщение от net_haker1 Посмотреть сообщение
содержится ли в первой половине слова +
может строки?
тогда:
Pascal
1
2
for i:=1 to length(s) div 2 do
  if s[i]='+' then
0
0 / 0 / 2
Регистрация: 02.10.2013
Сообщений: 153
31.10.2013, 09:19  [ТС]
Поподробнее можно?)
0
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
31.10.2013, 09:26
Pascal
1
2
3
4
5
6
7
for i:=1 to length(s) div 2 do // проходим от начала до середины строки
  if s[i]='+' then             // если очередной элемент "+", тогда...
  begin
    writeln('Есть');           // выводим на экран "Есть"
    exit;                      // выходим из программы
  end;
writeln('Нет');                // если не вышли из праграммы, значит плюсов нет
0
0 / 0 / 2
Регистрация: 02.10.2013
Сообщений: 153
05.11.2013, 09:15  [ТС]
А полную версию можно? что за Exit?
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
05.11.2013, 09:25
Без exit
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s:string;
    i,k,n:byte;
begin
writeln('Введите строку');
read(s);
n:=length(s);
i:=1;
k:=0;
while(i<=n div 2)and(k=0) do
if s[i]='+' then k:=1
else i:=i+1;
if k=1 then  writeln('Есть')
else writeln('Нет')
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.11.2013, 09:25
Помогаю со студенческими работами здесь

Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6.
Ввести число. Определить сумму цифр в первой половине числа . Пример, N=123456, результат 6.

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

Ввести строку, вывести слова по алфавиту (по первой букве)
Ввести строку, вывести слова по алфавиту (по первой букве). Как будеть выглядеть код ?

Ввести две символьных строки. Выполнить поиск второй строки в первой и вывести номер позиции, с которой вторая строка содержится в первой.
Ввести две символьных строки. Выполнить поиск второй строки в первой и вывести номер позиции, с которой вторая строка содержится в первой. ...

Ввести символьную строку создать вторую динамически на основе первой но заключить в скобки слова не содержащие цифр
Ввести символьную строку создать вторую динамически на основе первой но заключить в скобки слова не содержащие цифр. Если первая строка:...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru