Помогите Кате... Дано вещественное неотрицательное число, найдите сумму первых после десятичной точки трех цифр числа

[Катя Стреканова]

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

[Serge_Bliznykov]

var y : double;
  n, sum : integer;
begin
   ReadLn(y);
   n := trunc(frac(y)*1000);
   sum :=0;
   while n>0 do begin
     sum := sum + n mod 10;
     n := n div 10
   end;
   WriteLn('Сумма первых после десятичной точки трех цифр числа Y = ', sum)
end.

[Катя Стреканова]

Не понимаю как работает программа. Написала в Паскаль оно не работает. Ошибку выдают. Помогите..раскажмте...

Сообщение от Serge_Bliznykov

var y : double;
  n, sum : integer;
begin
   ReadLn(y);
   n := trunc(frac(y)*1000);
   sum :=0;
   while n>0 do begin
     sum := sum + n mod 10;
     n := n div 10
   end;
   WriteLn('Сумма первых после десятичной точки трех цифр числа Y = ', sum)
end.

[Alex11223]

Какая ошибка-то?

И Паскаль разный бывает.

[Катя Стреканова]

Ошибка на 5 строчки не читает ее

[Alex11223]

Прям так и говорит, "не могу прочитать"?

Или вы о своем неумении читать текст ошибки?

[Serge_Bliznykov]

хотя бы скриншот с ошибкой выложите.

[Катя Стреканова]

Да я не понимаю паскаль т. к. эту тему я не прослушала по причине болезни. вот сейчас догоняю всех.

[Serge_Bliznykov]

а теперь возьмите строчку, которая у Вас выделена красным и сравните с той строчкой, которая в моём коде.
только, чур, внимательно сравнивать!

[Alex11223]

Сообщение от Катя Стреканова

Да я не понимаю паскаль

Чтобы прочитать ошибку не надо знать Паскаль, надо только уметь читать (причем даже на русском в вашем случае, а не на английском)

А если непонятно, что означает ошибка, то можно скопировать ее сначала в гугл, потом (если гугл не помог) на форум, а не просто говорить всякие бессмысленные вещи типа "помогите, не работает!".