Răspuns :
program PerechiDePrime;
var n, a, b, p, i: integer;
begin
write('nr. de perechi? n= '); read(n);
writeln('Primele ',n,' perechi de numere impare prime:');
a:=3; b:=5;
while (n>0) do
begin
p:=1; i:=3;
while (p=1) and (i<=b div 2) do
begin
if b mod i=0 then p:=0;
i:=i+2;
end;
if p=1 then
begin write('(',a,',',b,') '); a:=b; n:=n-1; end ;
b:=b+2;
end;
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.