Нужно спрогнозировать население земли по континентом до 2030

ответ:

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

киберленинка:

Var
    f: file of integer;
    i, n, x, t, k, max: integer;
    s: integer;

begin
    randomize;
    write('n=');
    readln(n);
    
    assign(f, 'numbers.dat');
    rewrite(f);
    
    max := -1;
    for i := 1 to n do
    begin
        x := random(4800) + 20;
        write(f, x);
        write(x, ' ');
        if x > max then max := x;
    end;
    writeln;
    
    seek(f, 0);
    k := 0;
    while not eof(f) do
    begin
        read(f, x);
        t := x;
        s := 0;
        while t > 0 do
        begin
            s := s + sqr(t mod 10);
            t := t div 10;
        end;
        if x mod s = 0 then k := k + 1;
        if x > max - 50 then write(x, ' ');
    end;
    writeln;
    
    writeln(k);
end.