Question

Даны действительные числа икс и игрек найти сумму квадратов всех целых чисел расположена между икс и игрек а также количество этих чисел. Составить блок схему

Answer 1

program nikita47586;

var x, y, min: double;

   i, summa, k, st: integer;

begin

writeln('Даны действительные числа x и y найти сумму квадратов всех целых чисел, расположенных между x и y, а также количество этих чисел.');

writeln;

writeln('Введите x и y:');

readln(x, y);

writeln;

k := abs(trunc(x) - trunc(y)) - 1;

writeln('Количество расположенных между x и y чисел равно ', k);

writeln;

min := x;

if (y < x) then min := y;

st := trunc(min);

summa := 0;

for i := 1 to k do

 summa := summa + sqr(st + i);

writeln('Сумма квадратов всех целых чисел, расположенных между x и y равна ', summa);

readln;

end.