помогите.паскаль
Добавлено: 09 ноя 2012, 07:59
Дана строка символов, состоящая из букв и цифр. Вывести на экран число, состоящее их цифр данной строки.
Код: Выделить всё
var
s: String;
i: Integer;
begin
Write('Stroka: ');
ReadLn(s);
WriteLn;
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then
Write(s[i]);
ReadLn;
end.