найти количество нечетных чисел от 1 до n

Question

найти количество нечетных чисел от 1 до n

Comments

Pascal ABC ?

---

Программа или схема?

---

Pascal ABC

---

программа

---

Готово.

Answer 1

Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.

Comments

for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;

---

Var лишнее

---

Увы, нет. В паскале с фреймфорком .нет такая возмодность присутствует: мы создаем локальную переменную-итератор для цикла-счетчика, больше она нигде не доступна, кроме цикла

---

Но здесь Pascal ABC,а не Pascal ABC.NET

---

У кого-то есть паскаль . нет, ечли нет, то исправить там труда никакого не составит

---

Если,конечно,знаешь,что нужно исправлять)

---

компилятор подскажет :)