Question

В среде программирования Quick Basic составить программу для нахождения суммы последовательности чисел произвольного диапазона. Проверить работу программы для чисел от 5 до 12

Answer 1

var i,d,a,b: integer;
begin
cls;
writeln('введите кол-во чисел');
readln(a,b);
d:=1;
for i:=a to b do d:=d+1;
writeln('cумма=',d);
end.

забиваем числа 5 и 12 их сумма  равняется 9

Answer 2

Вот пример программы на языке Quick Basic, которая находит сумму последовательности чисел в заданном диапазоне:

basicCopy code
CLS

INPUT "Введите начало диапазона: "; start
INPUT "Введите конец диапазона: "; end

IF start > end THEN
  PRINT "Ошибка: начало диапазона больше конца диапазона"
ELSE
  sum = 0
  FOR i = start TO end
    sum = sum + i
  NEXT i
  
  PRINT "Сумма чисел в диапазоне от "; start; " до "; end; " равна "; sum
ENDIF

END

При запуске программы она попросит вас ввести начало и конец диапазона. В данном случае вы должны ввести 5 и 12 соответственно. Затем программа вычислит сумму всех чисел в указанном диапазоне и выведет результат на экран.