Срочно!!!9 класс пожалуйста

Question

Срочно!!!9 класс
пожалуйста

---

Answer 1

1.
1/(1+1/(2+3/5))

2.
var a,b,c,p : real;
begin
write('a='); readln(a);
write('b='); readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln('p = ',p);
end.

Пример:
a=3
b=4
p = 12

3.
var n,m:integer;
begin
write('n = '); readln(n);
m:=(n mod 100)*10 + n div 100;
writeln('m = ',m);
end.

Пример:
n = 324
m = 243

Answer 2

1)  a:=1/(1+1/(2+3/5))
2) uses crt;
     var a,b,p:real;
begin
 clrscr;
Write('Введите катеты:');
readl(a,b);
write('периметр=',(a+b+sqrt(a*a+b*b));
end.
3) 
uses crt;     var a,s,d,e:integer;  begin    clrscr;    write('введите целое трехзначное число ');    readln(a);    s:=a div 100;     d:=a div 10 mod 10;    e:=a  mod 100 mod 10;   write('новое число=',100*d+10*e+s);end.