Question

Написать программы с помощью паскаля

Answer 1

Var
A:byte;
Begin
WriteLn('Введите двузначное число');
ReadLn(A);
if (A div 10) > (A mod 10) then Write(A div 10,'>',A mod 10)
else if (A div 10) = (A mod 10) then Write((A div 10),'=',(A mod 10))
else Write(A div 10,'<',A mod 10)
End.




Var
x,y,z,M:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('z = ');ReadLn(z);
M:=(x+y)/z;
if (x+z)/y>M then M:=(x+z)/y;
Write('Max = ',M);
End.




Var
x:real;
Begin
Write('x = ');Read(x);
x:=1/(x+1)+1/(x-1);
Write('y = ',x);
End.