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

Ответ

Автор - maxpavlutenkof

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.