НА ПАСКАЛЕ С клавиатуры вводится вещественное число. Вывести сумму
трёх его первых цифр после десятичной точки. СРОЧНО, ПОЖАЛУЙСТА
трёх его первых цифр после десятичной точки. СРОЧНО, ПОЖАЛУЙСТА
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
number: real;
p, k, i, s,c: integer;
str1, str2: string;
BEGIN
readln(number);
Str(number, str1);
str2:= copy(str1, Pos('.', str1)+1, 3);
val(str2,k,c);
s:= 0;
WHILE (k <> 0) DO
BEGIN
s:= s + (k mod 10);
k:= k div 10;
END;
writeln(s);
END.