vista l'ora, il fatto che non l'ho provato e che sono anni che non uso pascal non garantisco ma ci provo lo stesso:
begin
writeln('Programma che visualizza la successione di numeri divisibili');
writeln('solo per 2,3,5');
writeln;
write('Inserisci l''intero N,numero di elementi della successione: ');
read(N);
i:=1;
j:=0;
count:=0;
while (count<=N)
begin
maybe:=false;
if ((i mod 2)=0) or ((i mod 3)=0) or ((i mod 5)=0) or (i=1)
maybe:=true;
j:=1;
while maybe and (j<=i)
begin
if(i mod j=0) and (j<>2) and (j<>3) and (j<>5)
maybe:=false;
j:=j+1;
end
if maybe
begin
print(i,'-');
count:=count+1;
end
i:=i+1;
end
fatemi sapere
