Даны действительные числа икс и игрек найти сумму квадратов всех целых чисел расположена между икс и игрек а также количество этих чисел. Составить блок схему
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад