Множества. Вывести на экран цифры, которые встречаются в тексте

@РаКсАнКа · Регистрация: 17.11.2011

Author24 — интернет-сервис помощи студентам

Дан текст (например, 5a7233111bge2257cde.) Признаком конца текста является точка. Вывести на экран цифры, которые встречаются в тексте.(выручааайте))(множества)

Составить программу, выводящую на экран расписание движения поездов (N поезда, станция отправления, станция прибытия, время прибытия, время в пути).(записи)

(заранее благодарю))))

@Ev[G]eN · 06.03.2012, 21:33

Сообщение от РаКсАнКа

Вывести на экран цифры, которые встречаются в тексте.(выручааайте))(множества)

Pascal

const
  Chisla = ['0'..'9'];
var
  SoC: set of char;
  Str: string;
  i: byte;
begin
  SoC:=[];
  write('Строка: ');
  readln(Str);
  for i:=1 to length(Str) do
    if (Str[i] in Chisla) and not (Str[i] in SoC) then
      include(SoC, Str[i]);
  write('Цифры, встречающиеся в тексте: ');
  for i:=1 to length(Str) do
    if Str[i] in SoC then write('[', Str[i], ']');
end.

@РаКсАнКа 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 54
		1
	Множества. Вывести на экран цифры, которые встречаются в тексте 06.03.2012, 21:21. Показов 4310. Ответов 1 Метки нет (Все метки) Дан текст (например, 5a7233111bge2257cde.) Признаком конца текста является точка. Вывести на экран цифры, которые встречаются в тексте.(выручааайте))(множества) Составить программу, выводящую на экран расписание движения поездов (N поезда, станция отправления, станция прибытия, время прибытия, время в пути).(записи) (заранее благодарю)))) 0

	06.03.2012, 21:33

Множества. Вывести на экран цифры, которые встречаются в тексте

Решение