Question

Необходима блок-схема цикла к постусловием.
Задано целое положительное значение x (x>0). Вычислить сумму всех целых чисел, попадающих в интервал [$\sqrt{x}$;$x^{2}$].

Answer 1

Ответ:

Program lol;

 Var x, sum, a, b:integer;

begin

 readln(x);

 a := round(int(sqrt(x))) + 1;

 b := round(x*x);

 for var i := a to b do

   sum := sum + i;

 writeln(sum);

end.

Объяснение: