Решите по информатике: дано положительное действительное число x. выведите его первую цифру после десятичной точки. при решении этой нельзя пользоваться условной инструкцией и циклом. в pascal abc или в pascal 2.6.2(или в приблизительно в той версии) или в python 3.4(или приблизительно в той версии)
begin
writeln('Введите число x: ');
read(x);
writeln(trunc(x * 10) mod 10);
end.