На экран вывести цифры , которые встречаются в тексте

@~Vadim~ · Регистрация: 24.04.2010

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

Дан текст состоящий из букв и цифр, признаком конца текста является точка. На экран вывести цифры , которые встречаются в тексте.

@xNum3n · 08.11.2010, 16:25

~Vadim~, вывысти как? частота встречаемости? или что?

@~Vadim~ · 08.11.2010, 16:31 **[ТС]**

просто сами эти цифры,
например:
дан текст: ыврашывраш5лрпа7папва9
выводим:5 7 9

Добавлено через 55 секунд
только ещё точка в конце

@xNum3n · 08.11.2010, 16:32

~Vadim~, ну и? Вы ж сами задачу решили - стандартный поиск по строке с выводом найденного...

@~Vadim~ · 08.11.2010, 16:34 **[ТС]**

можешь пожалуйста это написать, хотя бы этот поиск

@SuPeR XaKer · 08.11.2010, 17:03

Pascal

Uses
 CRT;
Var
 s,f:string;
 kol,l:integer;
begin
ClrScr;
kol:=0;
f:='';
write('Äëÿ îêîí÷àíèÿ ââîäà ââåäèòå òî÷êó: ');
repeat
begin
 readln(s);
  if s[length(s)]='.' then
  begin
   inc(kol);
  end;
 f:=f+s;
end;
until kol=1;
for l:=1 to length(f) do
 if f[l] in ['0'..'9'] then
 begin
  write(f[l]);
 end;
readln;
end.

Не по теме:

Ну как то так.

@~Vadim~ 3 / 3 / 0 Регистрация: 24.04.2010 Сообщений: 33
		1
	На экран вывести цифры , которые встречаются в тексте 08.11.2010, 16:24. Показов 2569. Ответов 5 Метки нет (Все метки) Дан текст состоящий из букв и цифр, признаком конца текста является точка. На экран вывести цифры , которые встречаются в тексте. 0

@xNum3n 15 / 15 / 5 Регистрация: 07.11.2010 Сообщений: 57
	08.11.2010, 16:25	2
	~Vadim~, вывысти как? частота встречаемости? или что? 0

@~Vadim~ 3 / 3 / 0 Регистрация: 24.04.2010 Сообщений: 33
	08.11.2010, 16:31 [ТС]	3
	просто сами эти цифры, например: дан текст: ыврашывраш5лрпа7папва9 выводим:5 7 9 Добавлено через 55 секунд только ещё точка в конце 0

@xNum3n 15 / 15 / 5 Регистрация: 07.11.2010 Сообщений: 57
	08.11.2010, 16:32	4
	~Vadim~, ну и? Вы ж сами задачу решили - стандартный поиск по строке с выводом найденного... 0

@~Vadim~ 3 / 3 / 0 Регистрация: 24.04.2010 Сообщений: 33
	08.11.2010, 16:34 [ТС]	5
	можешь пожалуйста это написать, хотя бы этот поиск 0

	08.11.2010, 17:03