ИЗ ПРИМЕРА ЗАДАЧИ, КОТОРАЯ ВЫВОДИТ ВСЕ НАТУРАЛЬНЫЕ ЧИСЛА ОТ 1 ДО n: Program pr; Var i,n...

Question

ИЗ ПРИМЕРА ЗАДАЧИ, КОТОРАЯ ВЫВОДИТ ВСЕ НАТУРАЛЬНЫЕ ЧИСЛА ОТ 1 ДО n:
Program pr;
Var i,n :integer
Begin
Writeln('Введите n');
readln(n);
for i:= 1 to n do
begin
writeln(i,' ');
end;
end.
НАПИШИТЕ ПРОГРАММУ, КОТОРАЯ ПОДСЧИТЫВАЕТ СУММУ НАТУРАЛЬНЫХ ЧИСЕЛ ОТ 1 до N

Answer 1

Просто в Var добавь переменную b. получится Var i,n,b : integer.
Потом там где написано writeln(i,'') напиши b:=b+i;
И потом перед end. напиши write(b); 

Answer 2

Var i,n,s :integer
Begin
Writeln('Введите n');
readln(n);
s := 0;
for i:= 1 to n do
begin
s := s + i;
end;
write(s);
end.

Comments

Мы не используем sum. Ко мне сразу возникнут вопросы(

---

Вот после второго begin, не понимаю что писать. Не подсчитывает(без sum)

---

s - это просто название переменной

---

после второго мы прибавляем к сумме следующее число

---

Спасибо большое и извините

---

После integer точку с запятой забыли, а так все хорошо