suma_de_.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 11 行

program suma_de_divizori;
var  n,i,s   : word;
begin
write('n=');readln(n);
s:=0;
for i:=3 to n do
  if i mod 3 = 0 then s:=s+i;
  write('s=',s);
end.