Даны действительные числа 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+power(i,3);
  writeln(i);
 end;
writeln('Count=',k);
writeln('Sum=',r);
end.

Пример ввода:
-1.8
2.8
Пример вывода:
Count=4
Sum=8

//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

Var x,y : Real;
Function Min(a,b : Real) : Real;
Begin
  If a<=b then Min:=a else Min:=b;
end;
Begin
  Readln(x,y);
  Writeln(Min(x+y,x-y));
end.