Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Проверить, являются ли введенные слова анаграммами друг друга Слово называется анаграммой другого слова, если оно может быть получено перестановкой его букв. Во входном файле два слова в отдельных строках. Длина каждого слова не превышает 255 символов. В выходной файл выведите "YES" - если введенные слова являются анаграммами друг друга, и "NO" - в противном случае. Пример: SHARM YES MARSH ANANAS NO NASA https://www.cyberforum.ru/ turbo-pascal/ thread1546806.html	Получить массив из элементов данного, заключенными между первым и последним положительными элементами Turbo Pascal 13. Дан массив целых чисел. Получить упорядоченный по невозрастанию массив, состоящий из членов данного массива, заключенных между первым и последним положительным элементом данного массива. Указание: проверить массив на наличие элементов между ними.
Turbo Pascal Найти суму членов ряда https://www.cyberforum.ru/ turbo-pascal/ thread1546747.html 13 задание	Turbo Pascal Найти сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread1546723.html Помогите пожалуйста, не могу написать код, (13 задание) очень нужно!!!
Найти максимальную цифру и записать в старший разряд Turbo Pascal Дано натуральное трехзначное число. В записи этого числа найти максимальную цифру и записать ее в старший разряд числа.	Turbo Pascal Удалить из текста все символы, кроме букв и пробелов нужно удалить из текста все символы кроме букв и пробелов uses crt; var text:string; i:char; begin; clrcsr; A:=; write('enter text:'); https://www.cyberforum.ru/ turbo-pascal/ thread1546638.html
Turbo Pascal Range error in set constructor(error #303) https://www.cyberforum.ru/ turbo-pascal/ thread1546601.html Подскажите, пжл, что за ошибка? PROGRAM Test(INPUT, OUTPUT); VAR TrainNumSet: SET OF 1..3; TrainNumFile: TEXT; I: INTEGER; BEGIN TrainNumSet := ;	Turbo Pascal Определить количество «особых» элементов матрицы Дана матрица C размером N x M. Определить количество «особых» элементов матрицы, считая элемент особым, если в его строке слева от него находятся элементы, меньшие его, а справа большие. Вывести колличество таких элементов. Ребят, выручайте нужна прога, если не сложно то с комментариями к каждой строке, чтобы была возможность сдать и объяснить ее после..(((
Turbo Pascal Генерация случайных перестановок Пожалуйста помогите сделать генерацию случайных перестановок. препод по программированию задал . https://www.cyberforum.ru/ turbo-pascal/ thread1546408.html	Turbo Pascal Найти сумму ряда Вычислите X1+X2+...+X20, если последовательность X1,X2,...образована по следующему закону: X1=X2=X3=1; Xi=(i+3)(X(i-1) -1)+(X+4)X(i-3), i=4,5,... ......................^.............^.....................^ ....................Индекс....Индекс...........Индекс https://www.cyberforum.ru/ turbo-pascal/ thread1546272.html
Найти точки, в которых функция принимает наибольшее и наименьшее значение Turbo Pascal Пусть отрезок разбит точками на n равных частей. В каждой точке вычисляется значение функции: (x^2-3x+2)/√(2x^3-1) Найдите те точки , в которых функция принимает наибольшее и наименьшее значение.	Turbo Pascal Найдите номер последнего из наибольших чисел последовательности Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найдите: 1) Номер последнего из наибольших чисел последовательности. 2)Наименьшее из всех положительных чисел последовательности. https://www.cyberforum.ru/ turbo-pascal/ thread1546246.html

bormant

Модератор

7769 / 4598 / 2823

Регистрация: 22.11.2013

Сообщений: 13,077

Записей в блоге: 1

07.10.2015, 19:56

Посчитать количество символов, не являющихся пробелами - Turbo Pascal - Ответ 8164332

07.10.2015, 19:56. Показов 4580. Ответов 2

Метки (Все метки)

Ответ

Pascal

var
  s: String;
  i, n: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  n:=0; i:=1;
  while (i<=Length(s)) and (s[i]<>'.') do
    if s[i]<>' ' then Inc(n);
  WriteLn('Не пробелов до ".": ',n);
end.

Вернуться к обсуждению:
Посчитать количество символов, не являющихся пробелами Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.10.2015, 19:56

Готовые ответы и решения:

Посчитать в последовательности количество символов, не являющихся пробелами
Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не...

Посчитать количество символов не являющихся пробелами
Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не...

Посчитать количество символов, не являющихся пробелами
Задачу реализуйте двумя способами, используя операторы do…while. Задание: Вводится...

Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не являющихся пробелами
Порядок выполнения работы 1.Изучите теоретическое обоснование и проанализируйте приведенные выше...

	07.10.2015, 19:56

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.10.2015, 19:56

Помогаю со студенческими работами здесь

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

Ввести строку символов, посчитать количество символов, не являющихся буквами английского алфавита
Ввести строку символов, если ее длина >6, то посчитать количество символов, не являющихся буквами...

Посчитать количество символов, не являющихся цифрами, в строке
эээ...ну собственно в теме всё написано))) как строка будет заданна без разницы,можно и...

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

Дана строка символов, разделённых пробелами. Вывести i-e слово и количество символов в нём
Добрый день Нужна помощь с заданием вот само задание Дана строка символов, разделённых...

Посчитать количество строк с пробелами
В ричтекстбоксе 2 -3 5 0 1 -2 3

Наверх