Изменить программу так чтобы она считала сумму целых чисел от A от B

Question

Информатика

Федорксия

23 марта, 17:32

Изменить программу так чтобы она считала сумму целых чисел от A от B

+4

Ответы (1)

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

Ясин · Answer 1

Var a, b, i, sum: integer;

begin

sum:=0;

writeln ('Введите A: ') ;

readln (a) ;

writeln ('Введите B: ') ;

readln (b) ;

for i:=a to b do

begin

sum:=sum+i;

end;

writeln (sum) ;

End.