| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
 Trimis: 15.03.2008 22:43 Titlul subiectului: Problema 15 |
|
|
| Citat: |
Scrieþi programul C/C++/Pascal care citeºte douã numere normale a ºi b (a≤b) cu cel mult 4 cifre fiecare ºi tipãreºte toate numerele prime de 3 cifre din intervalul [a,b].
De exemplu, pentru a=20 b= 45 , se afiºeazã : 23 29 31 37 41 .
|
| Cod: |
program prob15;
var a, b, i, j, d:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for i := a to b do
begin
d:=0;
for j := 2 to i div 2 do
if i mod j = 0 then d:=d+1;
if d=0 then write(i, ' ')
end
end. |
 |
|
| Sus » |
|
 |
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:08 Titlul subiectului: |
|
|
| Cod: |
{15.scrieti programul pascal care citeste 2 nr nat a si b (a<=b) cu cel mult 4
cifre fiecare si tipareste toate numerele prime de 3 cifre din intervalul [a,b]}
program ex15;
var a,b,i,j:integer;
function prim(k:integer):boolean;
var l,d:integer;
begin
d:=0;
for l:=2 to k div 2 do if k mod l=0 then d:=d+1;
if d=0 then prim:=true
else prim:=false;
end;
begin
write('a: '); readln(a);
write('b: '); readln(b);
for i:=a to b do if (99<i) and (i<999) and prim(i) then write(i,' ');
end.
|
|
|
| Sus » |
|
|
|
|
