Все натуральные числа от 1 до n записаны подряд слева направо: . сколько существует способов вычеркнуть все цифры полученного числа, кроме четырёх, чтобы оставшиеся цифры образовали (без перестановок) число 2013?

201

389

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

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

lyubimova84

Информатика

4,7(37 оценок)

// то чувство, когда 2 часа работал над оптимизацией, а в итоге работает быстрее вариант, который писал 5 минут.//pascalabc.net 3.2 сборка 1318var i,j,k,m,n,count: integer; s,s1: string; begin readln(n); for i: =1 to n do s+=inttostr(i); for i: =1 to length(s) doif (s[i]='2') or (s[i]='0') or (s[i]='1') or (s[i]='3') then s1+=s[i]; s: =s1; for i: =1 to length(s) do if s[i]='2' then for j: =i+1 to length(s) do if s[j]='0' then for k: =j+1 to length(s) do if s[k]='1' then for m: =k+1 to length(s) do if s[m]='3' then inc(count); writeln(count); end.пример ввода: 500пример вывода: 23760240

katyagulina666

Информатика

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

Pascalabc.net 3.4.0, сборка 1677 от 17.06.2018 внимание! если программа не работает, обновите версию! function countcond(a: array of real): =a.where(t-> t< a.average).count; begin var a: =arrgen(15,i-> cos(5*(i+/sqrt((i+1)**3+9)); a.println; writeln('элементов массива, меньших среднего арифметического: ',countcond(a)) end.