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

S=sdfg745tg2345dfg74

M=7452234574

Question

Венедикта

24 июня, 21:11

+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