составить программу для решения следующей задачи. из строки выбрать все цифры и сформировать другую строку

S=sdfg745tg2345dfg74

M=7452234574

Question

Зенон

12 ноября, 08:38

+2

Ответы (1)

Знаете ответ?

Торя · Answer 1

var

i:integer;

s, m:string;

begin

readln (s) ;

for i:=1 to Length (s) do

if s[i] in ['0' ... '9'] then m:=m+s[i];

write (m) ;

end.

составить программу для решения следующей задачи. из строки выбрать все цифры и сформировать другую строкуS=sdfg745tg2345dfg74M=7452234574