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

Program u4i_div_and_mod; var a,b,c,z,x,v: integer; begin readln(a); z: = a div 100; {1} x: = a mod 100; {23} c: = x mod 10;   {3} v: = x div 10; {2} writeln(v,z,c); readln; end.

Вvisual basic на форме нужно создать текстовое поле label1 со свойством wordwrap = true, то есть многострочное поле, размер нужно задать, чтобы поместилась вся матрица. sub matrix dim f() as integer ' объявляем динамический массив dim m as integer, i as integer, k as integer, t as string ' и переменные m = inputbox ("vvedite razmer matrix") ' задаем размер массива redim f(m, m) ' определяем размер массива for i = 1 to m    ' ввод данных       for k = 1 to m           t = "vvedite element matrix" & str(i) & "," & str(k)           f(i, k) = inputbox (t)       next k next i for i = 1 to m       f(i, i) = 0 ' обнуляем элементы главной диагонали. next i for i = 1 to m       for k = 1 to m  ' вывод строки данных через табуляцию           label1.caption = label1.caption & f(i, k) & chr(9)       next k       label1.caption = label1.caption & vbcrlf ' переход на следующую строку next i end sub

Var let: array [1..63] of integer = (5 , 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 ,16 ,17 , 18, 19 , 20, 25, 26, 27, 28, 29,30, 35, 36, 37, 38, 39, 40, 45, 46, 47, 48, 49, 50, 55, 56, 57, 58, 59, 60, 65, 66, 67, 68, 69, 70, 75, 76, 77, 78, 79, 80, 85, 86, 87, 88, 89, 90, 95, 96, 97, 98, 99); gad: array [1..9] of integer = (1, 21, 31, 41, 51, 61, 71 ,81 ,91); goda: array[1..27] of integer = (2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64,72,73,74,82,83,84,92,93,94); k: integer; begin for k: =1 to 99 do begin if k = let then begin writeln('мне', k, 'лет'); end; if k = gad then begin writeln('мне', k, 'год'); end; if k = goda then begin writeln('мне', k, 'года'); end; end; end.