Написать программу на Паскале

[Rain Hatter]

Написать программу на Паскале

Помогите, пожалуйста, написать на Паскале программу для вычисления значения функций:
1) y=1/sqrt(х-1)
2) y= sqrt(x+1)/(х-1)
3) составить программу, которая запрашивает три числа и выдает, то из них, последняя цифра в котором наибольшая.

Заранее спасибо!

 

[Gruvi]

1)

Program probnik1;
var
x,y:real;
begin
writeln('vvedite X');
readln(x);
if x=1 then
writeln('net resheniya');
else
begin
y:=1/(sqrt(х-1));
writeln('y = ');
end;
readln;
end.

2)

Program probnik2;
var
x,y:real;
begin
writeln('vvedite X');
readln(x);
if x=1 then
writeln('net resheniya');
else
begin
y:=sqrt(x+1)/(х-1);
writeln('y = ');
end;
readln;
end.

как-то так, прошу прощения если что0то не работает, писал через блокнот в паскаль последний раз залезал давно.

 

[Vladimir_S]

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

Var
 M:Array[1..3] of LongInt;
 d:Array[1..3] of Byte;
 i,i1,max:Byte;
Begin
 For i:=1 to 3 do
  begin
   Write('M',i,' = ');
   Readln(M[i]);
   d[i]:=M[i] mod 10;
  end;
 max:=d[1];
 i1:=1;
 For i:=2 to 3 do
  If d[i]>max then
   begin
    max:=d[i];
    i1:=i;
   end;
 Writeln;
 Writeln(M[i1]);
 Readln
End.