Помогите, прошу( Дано положительное действительное число X. Выведите его первую цифру...

Question

Помогите, прошу( Дано положительное действительное число X. Выведите его первую цифру после десятичной точки.

Comments

Паскаль?

---

Это не Паскаль(( Питон

---

Не знаю.

---

x=float(input())f = str(int(x*10)%10)print (f)

Answer 1

Var
  x:real;
begin
  Write('x='); Read(x);
  Writeln(Trunc(Frac(x)*10))
end.

Примеры:
x=13.643
6

x=15
0

x=0.000014
0

Answer 2

Var
   X:string;
   i:integer;
Begin
Write('X = ');
ReadLn(X);
i:=Length(X);
While (X[i] <> '.')and(i>1) do
   i:=i-1;
if X[i]<>'.' then WriteLn(0)
else if i = Length(X) then Write(0)
     else Write(X[i+1]);
End.