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

Question

Информатика

Ефросинья

15 октября, 08:08

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

+4

Ответы (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