Pascal. В вещественной переменной `Y` записано некоторое неотрицательное число, не превосходящее `900000`. В вещественной переменной `Y` записано некоторое неотрицательное число, не превосходящее `900000`. Запишите в переменную `P` сумму первых после десятичной точки четырех цифр числа `Y`. Можно использовать дополнительные переменные любых типов, но нужно указать тип для каждой дополнительной переменной.

Предыдущий
вопрос Следующий
вопрос

program SumDigitsAfterDecimalPoint;
var
Y, P: real;
integerPart, fractionPart: real;
digit1, digit2, digit3, digit4: integer;
begin
Y := 1234.5678; // пример числа
// Выделяем целую и дробную части числа Y
integerPart := Trunc(Y);
fractionPart := Frac(Y);
// Вычисляем сумму первых четырех цифр после десятичной точки
digit1 := Trunc(fractionPart * 10) mod 10;
digit2 := Trunc(fractionPart * 100) mod 10;
digit3 := Trunc(fractionPart * 1000) mod 10;
digit4 := Trunc(fractionPart * 10000) mod 10;
P := digit1 + digit2 + digit3 + digit4;
writeln('Сумма первых четырех цифр после десятичной точки: ', P);
end.