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

Подсчет знаков

27.09.2011, 18:35. Просмотров 896. Ответов 1
Метки нет (Все метки)

Написать программу подсчета знаков "+" во введеной строчке пока не встретится символ "."
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2011, 18:35
Ответы с готовыми решениями:

Подсчет гласных, согласных, знаков препинания в тексте
Разработать программу,которая вмещает в себе процедуру, которая подсчитывает...

Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков ‘+’,’-‘,’*’, входящих в текст.
Дан текст из букв и знаков. Подсчитать общее количество цифр и знаков...

Дан текст-строка из латинских букв и других знаков. Подсчитать сколько букв, сколько знаков
Дан текст-строка из латинских букв и других знаков. Подсчитать сколько букв,...

Дан текст - строка из латинских букв и других знаков Подсчитать сколько букв, сколько знаков
2.Дан текст-строка из латинских букв и других знаков. Подсчитать сколько букв,...

Программа для вывода на экран знаков препинания(с указанием их АСКИ-кода) знаков препинания
Напишите и отладьте программу для вывода на экран(с указанием их АСКИ -кода)...

1
I2um1
Злой няш
1408 / 1106 / 374
Регистрация: 05.04.2010
Сообщений: 1,949
27.09.2011, 19:09 2
Лучший ответ Сообщение было отмечено Rom41k95 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var s : string; i, count : integer;
begin
   readln(s);
   i := 1;
   while s[i] <> '.' do begin
      if s[i] = '+' then
         count := count + 1;
      i := i + 1;
   end;
   writeln('Ответ = ', count)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2011, 19:09

Перемещение знаков
Дано предложение.В нем ошибочно набраны лишние знаки (цифры) переместить их в...

While чередование знаков + и -
Добрый день! Помогите пожалуйста решить задачу в Turbo Pascal. Пытаюсь решить...

Расстановка знаков
Можно ли так расставить 5 заданных чисел и знаки арифметических операций (‘+’,...


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

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

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