Padėkite dėl pascal uždavinio. Skaičiai dvyniai.

Sveiki, turiu problemėlę, gal kas pagelbėsite, kaip reikia ją išspręsti. Gal, kas jau esate darę ir turite failus.

Užduotis:

Du gretimi nelyginiai pirminiai skaičiai yra vadinami dvyniais. Pvz.: 5 ir 7; 11 ir 13; 17 ir 19; ir t.t. Duomenų faile duoti du skaičiai a ir b (jie yra intervalo [a;b] rėžiai). Raskite visus intervalo [a;b] skaičius dvynius.

program trumpai;
var failas : text;
   pradz,pabaig,i : integer;
begin
 // Assign failas
 // Reset failas
 // gauni pradzia ir pabaiga
 // ciklas for i := pradzia to pabaiga do
 // tikrini ar skaicius i nelyginis ir ar pirminis
   // jei taip, tada patikrini ta pati su i+2(kitas gretimas nelyginis) aisku
   // nepamirsk paziuret ar i+2 nebus daugiau nei 'pabaiga' kintamasis.
   // jei ne ir gretimas nelyginis irgi pirminis, tada writeln(pradz,' ',pabaig);
 // Close failas
end.

Tiek trumpai, bent jau aš taip elgčiausi. Manau galima ir kitaip spręsti.

O konkrečiai, programos kodo neturi?

O konkrečiai, programos kodo neturi?

Galėčiau padaryti, bet ar tau tikrai nuo to geriau? Čia praktiškai surašiau visą eigą, tau tereikia paverst ją į kodo eilutes. Mokykloje manau tikrai mokėtės.