Помогите пожалуйста с задайчей) дано натуральное число x и n найти сумму чисел от x до n
Помогите пожалуйста с задайчей)
дано натуральное число x и n найти сумму чисел от x до n
Гость
Ответ(ы) на вопрос:
ГостьVB.
Dim x as Integer
x=InputBox("Введите x:")
Dim n as Integer
n=InputBox("Введите n:")
Dim j as Integer
Dim Summ As Long
For j = x To n
Summ = Summ + j
Next i
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox(Summ)
Гостьuses crt;
var a, b, c, i, n:integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите числа x и n');
read (a, b);
if a>b then
begin
n:=a;
a:=b;
b:=n;
end;
for i:=a to b do
c:=c+i;
writeln ('Сумма чисел от ', a, ' до ', b, ' равна ', c);
end.
P.S. Надеюсь на благодарность и лучший ответ.
Не нашли ответ?
Похожие вопросы