спасибо огромнейшеее
пробуй
ну как
все супер, спасибо огромное
)) рад помочь

Ответы и объяснения

2013-12-16T15:36:36+00:00
Var a:array [1..10000] of integer; c,b,k,n:integer;
begin
read(n); b:=n; c:=0;
for k:=1 to n do begin 
read (a[k]); for k:=1 to a[k]-1 do begin
if a[k] mod k=0 then c:=c+k;
if c=a[k] then b:=b-1;
end;
end; write(b);
end.