| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 11.04.2008 15:47 Titlul subiectului: Problema 02 |
|
|
| Cod: |
{se citeste de la tastatura un numar natural n cu cel mult noua cifre si care
determina daca exista un numar natural k cu proprietatea ca n=1*2*3*...*k.
daca exista un astfel de numar, programul va afisa mesajul "da", altfel va
afisa mesajul "nu"}
program ex2;
var n:longint;
k,i:integer;
ok:boolean;
begin
write('introduceti n: '); readln(n);
i:=2; ok:=true;
while ok and (n>1) do if n mod i=0 then begin
n:=n div i;
i:=i+1;
end
else ok:=false;
if ok then write ('da')
else write ('nu');
end.
|
|
|
| Sus » |
|
 |
tabernaculum
Superelev
Data inscrierii: 03/Iul/2012
Mesaje: 6
Localitate: Uganda
|
| Trimis: 19.07.2012 16:59 Titlul subiectului: |
|
|
| Numerous people will be benefited from your writing. Cheers! |
|
| Sus » |
|
|
tabernaculum
Superelev
Data inscrierii: 03/Iul/2012
Mesaje: 6
Localitate: Uganda
|
| Trimis: 23.07.2012 08:27 Titlul subiectului: |
|
|
| I love your style |
|
| Sus » |
|
|
animalplanet2
Superelev
Data inscrierii: 12/Iul/2012
Mesaje: 5
Localitate: Poland
|
| Trimis: 25.07.2012 01:02 Titlul subiectului: |
|
|
| Numerous people will be benefited from your writing. Cheers! |
|
| Sus » |
|
|
|
