В заданном тексте удалить символ - Turbo Pascal

  1. В заданном тексте удалить символ <,> и подсчитать количество удаленных символов.


textual

Код к задаче: «В заданном тексте удалить символ - Turbo Pascal»

var
  s : string;
  i, k : integer;
begin
  write('введите строку текста: ');
  readln(s);
  k := 0;
  for i := length(s) downto 1 do
    if s[i] = ',' then
    begin
      delete(s, i, 1);
      inc(k)
    end;
  writeln('новый текст: ', s);
  writeln('количество удаленных ",": ', k);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.833 из 5



Похожие ответы
  1. Здравствуйте ребят, нужна ваша помощь помогите составить программу: а) Y=е^x –sin(x) при Х=2.312; б) координаты используемой точки: (1.5;0.5). Cкрин задачи

  1. Составить постановку, алгоритм и в PASCALе программу поиска лежащих в пределах от 1976 до 2045 элементов массива Y из 12 чисел. Значения элементов указать с клавиатуры, помогите, это срочно! Приложу то, что я написал, но где-то ошибка, помогите

  1. Не могу понять почему не работает программа по этому заданию, заранее спасибо тем кто поможет) Дана последовательность символов латинского алфавита, заканчивающаяся точкой. Определить количество слов, начинающихся с буквы d (слова разделяются запятой).

  1. Напечатать элементы заданной матрицы А(N, N) в следующем порядке: (смотреть вложение)

  1. В следующих заданиях под словом «текст» понимается строка символов, слова в которой, разделены пробелами, ‘,’ , ‘.’ , ‘!’ , ‘?’ , ‘;’ , ‘:’ (одним или несколькими). Варианты заданий: Дан текст. Найти длину самого короткого слова.

  1. Всем привет, форумчане! Очень нужна ваша помощь. Нужно сделать программ с "function" в Pascal'e, который подсчитывает число согласных букв в тексте (строки со словами). Нужен не сложный программ, как можно проще. И как можно скорее, если можно. Буду рад за помощь. З.Ы. Не забудьте использовать function (обязательно)

  1. Массивы. Можно более подробно? Дан вектор A(2n). Если сумма S1=a1+a2+...+an равна сумме S2=an+1+ an+2+...+ a2n, то поменять местами первый и последний элементы вектора.

  1. Составить процедуру и функцию,которая по заданному номеру месяца печатает название времени года

  1. написать функцию, которая в заданном слове удаляет заданную букву(буквы и слово вводятся с клав)

  1. выяснить, каким символом в заданном тексте больше- цифр или пробелов( не исключая и случай равенства)ю[PASCAL]