Răspunsuri

2014-03-13T17:21:37+02:00
In limbajul Pacal:

read(n);
i:=0;
s:=0;
repeat 
i:=i+1;
if i mod 2=0 then s:=s+i;
until i=n
writeln(s);
1 5 1