Дана строка. поместить все цифры строки в отдельную строку. паскаль. , решить!

Arisha2544 Arisha2544    2   18.07.2019 13:30    0

Ответы
А6р7с8е9н А6р7с8е9н  25.08.2020 10:16
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика