Составь программу, которая будет давать ответ да или нет в зависимости от того, будет встречаться или нет число «а» в одномерном числовом массиве

298

452

Посмотреть ответы 1

Ответы на вопрос:

jauprosto

Информатика

4,6(90 оценок)

Var a: string; c: array['0'..'9'] of integer; i: integer; begin write('введите натуральное число: '); readln(a); for i: = 1 to length(a) do if ('0'< =a[i])and(a[i]< ='9') then c[a[i]]: =c[a[i]]+1; for i: = 1 to c['9'] do write('9 '); for i: = 1 to c['6'] do write('6 '); for i: = 1 to c['3'] do write('3 '); writeln; for i: = 1 to c['0'] do write('0 '); for i: = 1 to c['2'] do write('2 '); for i: = 1 to c['4'] do write('4 '); for i: = 1 to c['6'] do write('6 '); for i: = 1 to c['8'] do write('8 '); end. введите натуральное число: 59012549703651409725190351902745210974651094251087498015794801574801974850197423 9 9 9 9 9 9 9 9 9 9 9 6 6 3 3 3 0 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 4 4 4 4 4 4 4 4 4 4 6 6 8 8 8 8 8