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.
Posturi asemanatoare
Daca vrei sa fii la curent cu ceea ce apare zilnic pe blog, poti sa te abonezi la feedreader ( e gratis, in cazul in care iti pui intrebarea ).
Pe langa asta, poti sa ma urmaresti pe Twitter ori pe Facebook. Daca te intereseaza mai mult partea
profesionala a lucrurilor, atunci vezi mai multe pe profilul meu de linkedin, incerc sa il tin cat de cat la curent.
January 21st, 2009
t
January 21st, 2009
Cristina “t” e foarte putin pt ca cineva sa inteleaga ceva.
Sunt curios ce ai vrut sa scrii de fapt
January 2nd, 2010
bai eu am inteles ceea ce-mi trebuia din problema aratata mai sus
January 3rd, 2010
@kid scopul era sa ajute pe cei care au nevoie; nu stiu insa in ce masura o face…