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

Question

Информатика

Гульнизат

19 января, 17:27

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

+1

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