Состав те программу в паскале! 1)дано трехзначное число. определить количество всех различных трехзначных чисел, которые можно составить из цифр этого числа. 2) даны три числа. подсчитать количество четных чисел .
заранее !

, я сегодня добрый : ) первая .

var  s, mn: set of integer;   f: boolean;   k, n, c, i, j, kol: integer; begin  writeln('введите трехзначное число: ');   repeat readln(n) until n in [100..999]; // защита от "дурака"  k : = n;       // записываем число, чтобы вывести на результат    while n < > 0 do   begin                    // пока число не станет равно       c : = n mod 10;     // последняя цифра числа      include(s, c);     // вносим эту цифру в множество      n : = n div 10      // у числа отсекаем рассмотренную цифру  end;     for i : = 100 to 999 do   begin      // рассматриваем все трехзначные числа      mn : = s; j : = i; f : = true;   // все обнуляем      while j < > 0 do       begin      // пока рассматриваемое число не будет равно нулю          c : = j mod 10;       // последняя цифра числа          if c in mn then exclude(mn, c) else f : = false;       // если число во множестве, то убираем его оттуда, чтобы избежать повторений, иначе - не рассматриваем его.          j : = j div 10;       // у числа отсекаем рассмотренную цифру      end;       if f then begin inc(kol); write(i: 6) end      // если проверка прошла успешно, то выводим число на экран и прибавляем значение переменной-счетчика!   end;       writeln; writeln('из ', k, ' можно составить ', kol, ' чисел! ');     // выводим результат  readln; end.

==========================================================

а вот вторая, комменты к ней писать было уже лень:

var  k, i, n, kol: integer; begin  writeln('количество трехзначных чисел, которые вы далее введете? ');   repeat readln(k) until k in [1..10];   for i : = 1 to k do   begin      writeln('введите ', i, ' трехзначное число: ');       repeat readln(n) until n in [100..999];       while n < > 0 do       begin          if ((n mod 10) mod 2 = 0) then inc(kol);           n : = n div 10;       end;   end;   writeln('количество четных чисел = ',kol);   readln   end.

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

клинописьдата рождения ~3300 г. до н. э. место рождения - междуречье. происхождение - оригинальная письменность. состав - 300 — 900 знаков для слоговой и идеографической систем; порядка 30 букв для фонетической адаптации на восточном побережье средиземного моря; 36 букв для старо-персидского слогового алфавита.  чтение - изначально справа налево, колонками; затем слева направо строками (начиная с 2400-2350 гг. до н. э. для рукописных текстов; со ii тыс. до н. э. для монументальных надписей). языки - полтора десятка языков и диалектов: шумерский, эламский, хурритский, ханаанский, угаритский, урартский, хеттский, старо-персидский и т. д. наиболее старые известные документы — таблички с административными документами шумерского царства. последний известный документ на вавилонском яз. относится к 75 г. н. э.  самые старые письменные документы, найденные на раскопках древнего города урук, относятся к 3300 году до н. э. появление письменности совпадает по времени с развитием городов и сопутствующей этому полной перестройкой общества. в то же время в месопотамии появляется колесо и знание о плавке меди.между тигром и евфратом находилось шумерское царство, а на востоке — царство элам. в городах этих довольно урбанизированных государств жили , торговцы, ремесленники. вне городов — крестьяне и пастухи.как торговые, так и адиминистративные контакты всех этих групп необходимо было запечатлеть в какой-то форме. именно из этой необходимости и появилась письменность.первыми систему записи создали шумеры. элам, где использовали в то время лишь набор разрозненных пиктограмм, адаптировал шумерскую письменность под свой язык.от счета — к письмудля учёта имущества в шумере и эламе использовали систему глиняных шариков. изначально каждый шарик обозначал один объект (корову, барана и т. п.) затем размер и форма комочка стали значащими. а вскоре на них стали появляться пометки (след пальца, засечка), изменяющие их «вес». эти шарики складывались в глиняный контейнер, который запечатывался цилиндрической печатью, идентифицирующей владельца. таким образом, например, если контейнер содержал информацию о количестве голов скота в стаде, его необходимо было разбить, чтобы провести подсчёт находящихся в нём шариков.к 3300 г. до н. э. на поверхности контейнера вместе с печатью владельца стало появляться краткое описание его содержимого. при этом необходимость разбивать контейнер при каждой проверке отпала. постепенно ставшие бесполезными шарики исчезли, контейнер из сферического стал плоским. так появились первые глиняные таблички с первыми числами: кружочками и уголками, выдавленными в глине, форма и размер которых указывали на обозначаемый объект и его количество. таким образом, первые символы письменности имели форму считаемых объектов (товаров). например, знак «коза». играя роль «символа-картинки», они по определению были пиктограммами.впоследствии стали образовываться устойчивые сочетания пиктограмм, смысл которых постепенно отходил от суммы смыслов картинок. например, знак «птица» вместе со знаком «яйцо» дали сочетание «плодовитость» не только в применении к птицам, но как абстрактный термин. эти сочетания уже были идеограммами («символ-идея»).к 3000 г. до н. э. получавшиеся пиктограммы и идеограммы стали использовать фонетически, составляя из этих символов («символ-звук») слова, не имеющие порой никакого, даже косвенного, отношения к изображённым предметам.одновременно изменяется и стиль письма. для записи все символы разложены на короткие отрезки (клинья — откуда название письменности), которые уже не надо было вырезать в глине, а можно было просто наносить при калама — специальной палочки с заострённым концом треугольной формы. параллельно с этим происходит разворот существующих символов на 90° против часовой стрелки.начиная со ii тыс. до н. э. клинопись распространяется по всему ближнему востоку.