Дана строка, выбрать из нее все цифры и упорядочить по возрастанию. (паскаль АВС)

Question

Информатика

Азарий

10 июля, 20:17

Дана строка, выбрать из нее все цифры и упорядочить по возрастанию. (паскаль АВС)

+2

Ответы (1)

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

Марюта · Answer 1

Var

a : array ['0' ... '9'] of integer;

s : string;

i : integer;

j : char;

begin

readln (s) ;

for i : = 1 to length (s) do

if s[i] in ['0' ... '9'] then inc (a[s[i]]) ;

for j : = '0' to '9' do

for i : = 1 to a[j] do

write (j) ;

end.