Вывод цифр находящихся в строке

@nyblo · Регистрация: 16.10.2012

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

Помогите! пожалуйста. Составить прогу вывода всех цифр находящихся в строке.

@Valery__ · 16.10.2012, 12:05

Pascal

Program aport_cifr;
Var s:string;
    kod,i,x:integer;
     
BEGIN
  Write('Vvedite stroku ');
  Read (s);
  kod:=0;
  For i:=1 to Length(s) do begin
    Val(s[i],x,kod);
    if kod=0 then Writeln (x);
    kod:=0;
  end;
END.

@nyblo · 17.10.2012, 08:25 **[ТС]**

Спасибо.все работает!

@nyblo 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 5
		1
	Вывод цифр находящихся в строке 16.10.2012, 11:48. Показов 991. Ответов 2 Метки нет (Все метки) Помогите! пожалуйста. Составить прогу вывода всех цифр находящихся в строке. 0

@nyblo 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 5
	17.10.2012, 08:25 [ТС]	3
	Спасибо.все работает! 0

Опции темы

Вывод цифр находящихся в строке

Решение