Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного...

Question

Составьте алгоритм вычисления суммы всех
натуральных чисел, не превышающих заданного натурального числа N.
Проверьте алгоритм трассировкой. Напишите программу на Паскале.

Comments

пример дй

---

какой? я в этом не разбираюсь. Я дура.

---

:D

---

Сурово :)

---

ахаха:)

Answer 1

Var a,k,n:integer;
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.

Comments

спасибо:3

Answer 2

Program asd;
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
END.

Comments

спасибо:3