pirminis skaicius

kaip per freepascal nustatyti ar skaicius yra pirminis? duota tokia uzduotis: parasyti programa kuri nustatytu ar skaicius yra pirminis?

Ivesta skaičių priskiri kintamajam, tikrinini sąlygą ar kintamasis dalinisi iš savęs paties, ir dar kart tikrini ar dalinasi iš vieneto )čia kad ir mokytojai patenkinti būtų. Jei salyga tenkinama tai išvesties tekstas "skaičius yra pirminis", jei ne - "skaičius nėra pirminis". O pirminis kaip supratai yra toks skaičius kuris dalinasi tik iš vieneto ir savęs paties ( be liekanos). Na čia gal ir nėra tisliai, bet scenarijus toks.

Ivesta skaičių priskiri kintamajam, tikrinini sąlygą ar kintamasis dalinisi iš savęs paties, ir dar kart tikrini ar dalinasi iš vieneto )čia kad ir mokytojai patenkinti būtų. Jei salyga tenkinama tai išvesties tekstas "skaičius yra pirminis", jei ne - "skaičius nėra pirminis". O pirminis kaip supratai yra toks skaičius kuris dalinasi tik iš vieneto ir savęs paties ( be liekanos). Na čia gal ir nėra tisliai, bet scenarijus toks.

Iš savęs ir vieneto bet koks skaičius visada dalinasi (apart 0). Tai čia reiškia, kad visi yra pirminiai? Ne, dar tokią smulkmeną pamiršai. Reikia dar patikrinti, ar nesidalina iš kitų skaičių be liekanos :)

Aš nieko nepamiršau, juk taip ir parašiau, skaičius kuris dalinasi TIK iš vieneto ir savęs paties. O sąlygoje tai taip, reikia patikrinti kad iš kitų skaičių nesidalintų be liekanos, tai su mod ir div

As suprantu ta dalyka kad skaicius dalinas TIK is saves ir is 1, bet visada gaunu teigiama atsakyma.

program pirminis;

var x : longint;

begin

writeln('Iveskite skaiciu');

readln(x);

if x mod x = 1 then writeln('Skaicius yra pirminis')

else

writeln('Skaicius nera pirminis');

readln;

end.

Tu savo šita programa tikrini TIK ar skaičius dalinasi iš savęs be liekanos, o tokią sąlygą tenkina visi skaičiai, todėl ir gauni visada teigiamą atsakymą.

Tu savo šita programa tikrini TIK ar skaičius dalinasi iš savęs be liekanos, o tokią sąlygą tenkina visi skaičiai, todėl ir gauni visada teigiamą atsakymą.

Tai zinau as sita :D delto ir klausiu jusu kokia dar formule reiktu taikyt kad salyga tenkintu ne tik visi skaiciai.

pvz kad parasius skaiciu 12, rodytu kad jis nera pirminis.

Čia yra algoritmai parašyti, bandyk prisitaikyt. ;)

http://www.wikihow.com/Check-if-a-Number-Is-Prime

Tai zinau as sita :D delto ir klausiu jusu kokia dar formule reiktu taikyt kad salyga tenkintu ne tik visi skaiciai.

pvz kad parasius skaiciu 12, rodytu kad jis nera pirminis.

Reik patikrint is eiles visus skaicius iki duotojo (siuo atveju iki 12) ir paziuret ar dalijasi be liekanos.

Pvz. duotas skaicius 12 - pradedam cikla nuo 2 ir ziurim ar 12 dalinasi is 2 be liekanos, jei taip reiskia skaicius ne pirminis ir toliau netesiam.

O jei pvz 13 - vel pradedam nuo 2 - nesidalina, tada bandom 3 - vel nesidalina ir t.t.