Se da un vector X cu n elemente. Sa se afiseze numarul valorilor prime.
AntiEaglesDavids:
ai 18 ani?
Răspunsuri la întrebare
Răspuns de
0
Program prim;
const nmax=100;
type vector=array[1..nmax] of integer;
var v:vector; i,n,s:integer;
begin
writeln('Dati n='); readln(n);
for i:=1 to n do begin
write('v[,i,']='); readln(v[i]); end;
for i:= 1 to n do
if v[i] mod 2 <>0 then
if v[i] mod 3 <>0 then s:=s+1;
writeln('in sir sunt ',s,' numere prime'); readln; end.
const nmax=100;
type vector=array[1..nmax] of integer;
var v:vector; i,n,s:integer;
begin
writeln('Dati n='); readln(n);
for i:=1 to n do begin
write('v[,i,']='); readln(v[i]); end;
for i:= 1 to n do
if v[i] mod 2 <>0 then
if v[i] mod 3 <>0 then s:=s+1;
writeln('in sir sunt ',s,' numere prime'); readln; end.
Alte întrebări interesante
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Biologie,
10 ani în urmă
Engleza,
10 ani în urmă
Matematică,
10 ani în urmă
Limba română,
10 ani în urmă