Даны действительные числа x, y. Найти сумму квадратов всех целых чисел, расположенных между x и y, а также количество этих чисел.
Даны действительные числа x, y. Найти сумму квадратов всех целых чисел, расположенных между x и y, а также количество этих чисел.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
Var
x,y,r:real;
k,i,xi,yi:integer;
begin
readln(x,y);
xi:=round(x-frac(x));
yi:=round(y-frac(y));
for i:=xi to yi do
begin
inc(k);
r:=r+sqr(i);
end;
writeln('Count=',k);
writeln('Sum=',r);
end.
Пример ввода:
-1.1
2.1
Пример вывода:
Count=4
Sum=6
Не нашли ответ?
Похожие вопросы