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

Question

Информатика

Ареф

11 августа, 05:40

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

+5

Ответы (1)

Знаете ответ?

Эвелинка · 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