Question

На Pascal. С клавиатуры вводится вещественное число. Вывести сумму трёх его первых цифр после десятичной точки. Решение задачи должно быть без условии (if) и циклов (while).
​

Answer 1

var a:real;

b:integer;

begin

readln(a);

b:=round(a*1000)mod 1000;

write(b div 100 + b mod 10 + b mod 100 div 10);

end.