Дана строка. Поместить все цифры строки в отдельную строку. Паскаль. Помогите пожалуйста, решить!
Дана строка. Поместить все цифры строки в отдельную строку. Паскаль. Помогите пожалуйста, решить!
Гость
Ответ(ы) на вопрос:
Гостьvar
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
end.
Не нашли ответ?
Похожие вопросы