Палиндромом называется число, которое читается одинаково слева направо и справа налево. Например: 121, 4 и 123321 — палиндромы, а 12, 2312 и 123 — нет.

Выведите на экран наименьшее число, которое содержит в десятичной записи все цифры от 0 до 9, делится на 9 и является палиндромом.

Запись числа не должна содержать ведущих нулей. Например, запись 01 содержит ведущие нули, а 1 — нет.

египтяне не писали гласных. египетский язык относится к группам языков, где корень слова состоит из согласных, гласные не вписываются. использовались три вида знаков: словесные (один иероглиф - одно слово), фонетических (сродни сорвеменному алфавиту), детерминативов (иероглиф в конце слова изменял его смысл).

итог - гласные звуки в письме не использовались.

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.