Запишите на языке паскаль программу, которая для произвольного двузначного числа определяет число, образованное перестановкой цифр исходного числа.

program cislo; var      a, b: integer; begin      write('enter number ');       readln(a);             b : = (a mod 10)*10;       b : = b + (a div 10);             writeln(b);                   readln;

end; end.

program zadacha; var      a, b: integer; begin      write('enter number ');       readln(a);             b : = (a mod 10)*10;       b : = b + (a div 10);             writeln(b);                   readln; end.

Вот программа по примитивной логике. заводим доп.массив, переписываем в него четные эл-ты, сортируем его, отсортированные эл-ты вставляем назад в исходный массив. var     i, j, p: integer;     a: array[1..20] of integer;     b: array[1..10] of integer; begin  writeln('исходный массив: '); for i : = 1 to 20 do   begin   a[i] : = random(20) + 1;   write(a[i]: 3)   end;           for i : = 1 to 20 do     if i mod 2 = 0 then         begin         j : = j + 1;         b[j] : = a[i]         end; writeln; for i : = 1 to 10 do       for j : = 1 to 10 do           begin           if b[i] > b[j] then             begin             p : = b[i];               b[i] : = b[j];               b[j] : = p               end           end; for i : = 1   to 10 do a[i * 2] : = b[i]; writeln('преобразованный массив: '); for i : = 1 to 20 do write(a[i]: 3) end.

Ну ясно что а если порассуждать то толя – мы с ваней не входили в класс на перемене. (правда)игорь – это кто-то из девчонок.                      (правда)ваня – это не я и не петя.                  (правда)оля – это петя.                          (врёт)петя – это оля.                  (правда)лена – цветок уронил кто-то из мальчишек.  (врёт) 4 правды, 2-е соврали. ничто ничему не противоречит. значит оля.