СРОЧНО!!!! 34 БАЛЛА!!!! PASCAL ABC, ЗАДАЧА ** ЦИКЛЫ, НУЖЕН ЦИКЛ С УСЛОВИЕМ, ПРЕДУСЛОВИЕМ...

Question

СРОЧНО!!!! 34 БАЛЛА!!!!
PASCAL ABC, ЗАДАЧА НА ЦИКЛЫ, НУЖЕН ЦИКЛ С УСЛОВИЕМ, ПРЕДУСЛОВИЕМ ИЛИ ПОСТУСЛОВИЕМ, 9 КЛАСС! ПОДРОБНО ПРОГРАММУ ПОЖАЛУЙСТА!!!
Дано натуральное n. Вычислить:
S=1/2^2+1/4^2+1/6^2+...1/(2n)^2

Comments

Циклы с предусловием и постусловием - это известная вещь. А вот что такое цикл с условием?

Answer 1

Var 
s,i:integer;

begin
readln(n);

For i=0 to n-1 do begin
if (i mod 2 = 1) then i:=i+1;
s:=s+1/((2+i)(2+i))
end;
end.

Comments

на ABC давно не кодил , поэтому лучше в копилятор пустить. Я сейчас на java сижу

---

в цикле исправь for i:=0

---

значит это не ABC , в ABC такая фишка есть , сейчас напишу тогда

---

АВС, не АВС - разницы нет. Вы написали ерунду, поэтому оно и не работает.

---

if (i mod 2 = 1) then s:=s+1/((3+i)(3+i)) else s:=s+1/((2+i)(2+i));