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.
t
Cristina “t” e foarte putin pt ca cineva sa inteleaga ceva.
Sunt curios ce ai vrut sa scrii de fapt
bai eu am inteles ceea ce-mi trebuia din problema aratata mai sus
@kid scopul era sa ajute pe cei care au nevoie; nu stiu insa in ce masura o face…
vezi frate ca ai uitat ceva in a doua conditie {if prim=true} 🙂