Сзадайчей) дано натуральное число x и n найти сумму чисел от x до n

164

315

Посмотреть ответы 3

Ответы на вопрос:

earthas

Информатика

4,8(31 оценок)

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. надеюсь на и лучший ответ.

Medvedevalilit2004

Информатика

4,6(20 оценок)

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)