Imi poate explica si mie cineva unde e greseala :
program diferentainformatica;
type vector=array[1.100] of integer;
var V:vector;
n,i, d, s, nd:integer;
t:boolean;
begin
read(n);
for i:=1 to n do
read(V[i]);
{enuntul numarul 1}
for i:=n downto 1 do
if V[i] mod 2=0
then write(V[i],' ');
writeln;
{enuntul numarul 2}
t:=false;
for i:=1 to n do
for d:=1 to V[i] mod 2 do
begin
s:=0;
nd:=0;
if V[i] mod d=0
then s:=s+d;
if s=V[i]
then begin
t:=true;
break

end
end;
if t
then write(V[i])
else write('nu s-a gasit numar perfect')
end.

Pentru a răspunde la o întrebare trebuie să ai cont pe TPU.ro

Logare cu email şi parolă

Creare de cont nou

Logare cu Facebook