Программа на строки: из данной строки вывести на экран только числа

@lord111 · Регистрация: 02.11.2012

Народ помогите пожалуйста написать программу на строки. Задание такое, нужно ввести любые знаки,символы и цифры и нужно чтобы из этой строки выводилось на экран только числа.

@CodeR · 03.11.2012, 12:48

Pascal

Var s,s1:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    s1:='';
    For i:=1 to Length(s) do
     if s[i] in ['0'..'9'] then s1:=s1+s[i]
      else
      Begin
        if s1<>'' then writeln(s1);
        s1:='';
      End;
    if s1<>'' then writeln(s1);
    readln;
End.

@lord111 · 03.11.2012, 17:55 **[ТС]**

Большое спасибо, отблагодорил плюсиком)

@lord111 0 / 0 / 0 Регистрация: 02.11.2012 Сообщений: 16
		1
	Программа на строки: из данной строки вывести на экран только числа 03.11.2012, 04:40. Просмотров 1319. Ответов 2 Метки нет (Все метки) Народ помогите пожалуйста написать программу на строки. Задание такое, нужно ввести любые знаки,символы и цифры и нужно чтобы из этой строки выводилось на экран только числа. 0

@lord111 0 / 0 / 0 Регистрация: 02.11.2012 Сообщений: 16
	03.11.2012, 17:55 [ТС]	3
	Большое спасибо, отблагодорил плюсиком) 0

Опции темы

Программа на строки: из данной строки вывести на экран только числа

Решение