Даны натуральные числа А до В (В<А). Написать программу, выводящую на экран сумму натуральных чисел от В до А включая В и А.

Question

Информатика

Гаврила

27 ноября, 01:26

Даны натуральные числа А до В (В<А). Написать программу, выводящую на экран сумму натуральных чисел от В до А включая В и А.

+2

Ответы (1)

Знаете ответ на вопрос?

Ратибор · Answer 1

Program zuevyuliya;

var a, sum, b:integer;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

for a:=a to b do

inc (sum, a) ;

writeln ('sum=', sum) ;

end.