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.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Необходима блок-схема цикла к постусловием. Задано целое положительное значение x (x>0 Вычислить сумму всех целых чисел, попадающих в интервал [;].
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.
Объяснение: