2. используя данные таблицы, определите долю выбросов загрязняющих веществ в атмосферу от стационарных источников в 2013 г. (в %). полученный результат округлите до целого числа.
выбросы загрязняющих атмосферу веществ стационарными и передвижными источниками, 2013 г. (тыс. тонн)
выброшено загрязняющих атмосферу веществ
всего 320 644
в том числе:
стационарными источниками загрязнения 18 447
передвижными источниками 13 617

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

желтый знак - нехватка памяти

все остальное - размер  

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником