ДЛЯ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ:
var x: integer;
begin
writeln ('Введите четырехзначное число.');
read (x);
x:=x mod 10 * 1000 + x div 100 mod 10 * 100 + x div 10 mod 10 * 10 + x div 1000;
writeln ('Число после перестановки цифр:',x);
end.
ДЛЯ ЛЮБЫХ ЧИСЕЛ:
program znanija;
var n,m,c1,cp:integer;
k,i:byte;
begin
write('Введите число.');
readln(n);{например 12345}
cp:=n mod 10;{последняя цифра=5}
n:=n div 10;{число без последней цифры=1234}
m:=n;{запомним его}
k:=0;
while m>9 do{пока не останется 1 цифра}
begin
m:=m div 10;{первая цифра=1}
k:=k+1;{количество разрядов без первого=4}
end;
c1:=m;{запомним первую цифру=1}
for i:=1 to k do
begin
m:=m*10;{повышаем разряд числа, равного первой цифре=1000}
cp:=cp*10;{повышаем разряд последней цифры=5000}
end;
n:=(n-m)*10+c1+cp*10;{получаем число=(1234-1000)*10+1+5000*10=52341}
writeln('Число после перестановки цифр:',n);
end.
// PascalABC.NET 3.3
begin
var x:=ReadInteger;
writeln((1+x)*x div 2);
end.
Пример:
6
21
14. А
15. В
16. А
Просто пишу текст, так как нужно минимум 20 символов
function Pow(x, y: real): real;
var
PowTmp: real;
begin
if (x < 0) then
PowTmp := (-1) * Exp(y * Ln(Abs(x)))
else if (x > 0) then
PowTmp := Exp(y * Ln(Abs(x)))
else PowTmp := 0;
if not (odd(round(y))) then PowTmp := Abs(PowTmp);
if (y = 0) then PowTmp := 1;
Pow := PowTmp;
end;
Вот функция, приклейте, куда нужно:)
Pascal
var
x,a,b : integer;
r : real;
begin
readln (x,a,b);
r := (0.5*sqr(x))/(a+b);
writeln (r)
end.