Найти сумму нечетных чисел от 1 до n. составьте программу в Паскаль

Question

Найти сумму нечетных чисел от 1 до n.
составьте программу в Паскаль

Answer 1

Program n1;
var n,i: integer;
sum: real;
begin
sum:=0;
readln(n);
for i:=1 to n do if i mod 2<>0 then
sum:=sum+i;
writeln(sum);
end.

Comments

что значит sum?

---

переменная типа real

---

а как можно записать без неё?

---

нельзя,в эту переменную записывается сумма

---

А почему sum имеет тип real (просто интересно)?

---

чтобы при очень большом n разряды не потерялись

---

Можно тогда было взять 64-битные числа (int64, uint64)

---

для школы сложновато)

---

Сегодня вычисляли факториал 150000 (через biginteger)

---

Длина числа>100000 знаков))