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

Var a,b: integer; begin readln(a); b: =(a mod 10)*100; b: =b+(a mod mod 10); b: =b+(a div 100); writeln(b); readln; end.

Var   a,b,alpha,s: real; begin   writeln('вычисление площади треугольника');   writeln('введите (через пробел) длины двух сторон (см) треугольника');   readln(a,b);   writeln('введите величину угла (градус) между сторонами треугольника');   readln(alpha);   alpha: =degtorad(alpha);   writeln('площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.') end. тестовое решение: вычисление площади треугольника введите (через пробел) длины двух сторон (см) треугольника 25 17 введите величину угла (градус) между сторонами треугольника 30 площадь треугольника: 106.25 кв.см. вычисление площади треугольника введите (через пробел) длины двух сторон (см) треугольника 11 16.3 введите величину угла (градус) между сторонами треугольника 39 площадь треугольника: 56.4185730576179 кв.см.

Uses crt; var i,n,summa,a: integer;             m: array [1..1000] of integer; begin clrscr; writeln('введите размер массива'); readln(n); for i: =1 to n do m[i]: =i; if n< 99 then a: =n else a: =99; for i: =10 to a do begin     if (i div 10)+(i mod 10) < 10 then          begin            summa: =summa+i;             end; end; writeln(summa); readkey; end.