Probleme Pascal – Aflarea numerelor prima cuprinse intre doua numere a si b, cu afisarea intr-un fisier text

Se citesc de la tastatură 2 numere întregi a şi b, b mai mare ca a. Sa se afiseze intr-un fisier “a.txt” toate numere prime aflate in intervalul aflat intre cele doua numere a si b.

program prob16;

var f:text;

x,d,a,b:integer;

prim:boolean;

begin

assign(f,’a.txt’);

rewrite(f);

write(‘a=’);read(a);

write(‘b=’);read(b);

for x:=a to b do

begin

prim:= true;

for d:= 2 to x div 2 do

if x mod d =0 then prim := false;

if prim then writeln( f, x ,’ numar prim’);

end;

close(f);

end.

5 thoughts on “Probleme Pascal – Aflarea numerelor prima cuprinse intre doua numere a si b, cu afisarea intr-un fisier text

  1. cristina

    t

  2. Mihai Jepan

    Cristina “t” e foarte putin pt ca cineva sa inteleaga ceva.

    Sunt curios ce ai vrut sa scrii de fapt

  3. kid

    bai eu am inteles ceea ce-mi trebuia din problema aratata mai sus

  4. Public User

    @kid scopul era sa ajute pe cei care au nevoie; nu stiu insa in ce masura o face…

  5. Victor

    vezi frate ca ai uitat ceva in a doua conditie {if prim=true} 🙂

Leave a Reply

Your email address will not be published. Required fields are marked *