Reikia pagalbos skubiai :)

28. Du gretimi nelyginiai pirminiai skaičiai vadinami dvyniais. Pvz.: 5 ir 7. Nustatykite, ar du duoti pirminiai skaičiai M ir N yra dvyniai.

29. Jei sudėtume visus kurio nors skaičiaus skaitmenis, po to – visos gautos sumos skaitmenis ir tai kartotume daug kartų, pagaliau gautume vienaženklį skaičių, vadinamą duoto skaičiaus skaitmenine šaknimi. Pvz.: 751 skaitmeninė šaknis 4 (7+5+1=13, 1+3=4). Raskite skaičiaus N skaitmeninę šaknį.

27. V.Kordenskis surado įdomų skaičių, kuris lygus skaitmenų faktorialų sumai. Pvz.: 145=1!+4!+5!. Nustatykite, ar duotas skaičius N yra Kordenskio skaičius.

15. Duotas natūralus skaičius n. Sudarykite programą, kuri nustatytų, ar skaičius yra kieno nors faktorialas, ar ne. Pvz.: n = 24, tai ieškomas skaičius 4, nes 4!= 24.

čia reikia su funkcijomis ir proceduromis :) Atsilyginsiu :)

parasyk kokia kalba tau cia reikia..

free pascal 0.6.4.a

28.

program Noname2;
const T = 1000;
type masyvas = array[1..T] of integer;

var i, kiek: integer;
   pirm: masyvas;
   sk1, sk2: integer;

procedure pirminiai (var pirm: masyvas; var kiek: integer);
  var i, j, k: integer;   mas: array[1..T] of boolean;
    begin
       k := 0;
       for i := 2 to T do
           mas[i] := true;
       for i := 2 to 500 do
           if mas[i] = true then
               begin
                   j := 2*i;
                   while j<= T do
                       begin
                            mas[j] := false;
                           j := j+i;
                       end;
               end;
       for i := 2 to T do
         if  mas[i] = true
           then
               begin
                   k := k +1;
                   pirm[k] := i;
               end;
       kiek := k;
    end;

function dvyniai(sk1,sk2: integer; pirm: masyvas; kiek: integer):boolean;
  var i: integer;
    begin
       dvyniai := false;
       for i := 1 to kiek - 1 do
         if (pirm[i] = sk1) and (pirm[i + 1] = sk2)
           then dvyniai := true;
  end;


begin
 pirminiai(pirm, kiek);
 WriteLn('Iveskite 2 skaicius');
 readln(sk1, sk2);
 if dvyniai(sk1,sk2, pirm, kiek) = true
   then writeln('dvyniai')
   else writeln('skaiciai nera dvyniai');
 Readln;
end.

29.

program Noname3;


procedure skaitmSum(var sk: integer; var rez: integer);
 var sum: integer;
    begin
       rez := 0;
       while sk > 0 do
         begin
           rez := rez + sk mod 10;
           sk := sk div 10;
         end;
    end;


var sk, rez: integer;
begin
 WriteLn('Iveskite skaiciu');
 readln(sk);
 rez := 10;
 while rez > 9 do
   begin
     skaitmSum(sk, rez);
     sk := rez;
   end;
 writeln('Skaitm. saknis: 'rez);
 Readln;
end.

27.

program Noname4;

var i, sk, prad: integer;
   sum: longint;



function fakt(n: integer): longint;
 var i: integer;
   begin
     fakt := 1;
     for i := 1 to n do
        fakt := fakt * i;
   end;





begin
 writeln('Iveskite skaiciu');
 readln(sk);
 prad := sk;
 while sk > 0 do
   begin
     sum := sum + fakt(sk mod 10);
     sk := sk div 10;
   end;
 if sum = prad
   then writeln('Skaicius yra Kordenskio skaicius')
   else writeln('Tai ne kordenskio skaicius');
 Readln;
end.

15.

program Noname5;

var yra: boolean;
   sk, n: integer;



function fakt(n: integer): longint;
 var i: integer;
   begin
     fakt := 1;
     for i := 1 to n do
        fakt := fakt * i;
   end;



begin
 WriteLn('Iveskite skaiciu');
 ReadLn(sk);
 n := 1;
 yra := false;
 while (fakt(n) <= sk) and (yra = false) do
   begin
     if sk = fakt(n)
       then yra := true;
     n :=n + 1;
   end;
 if yra = true
   then writeln('Duotas skaicius yra ',n - 1, ' faktorialas')
   else writeln('Skaicius nera kieno nors faktorialas');
 Readln;
end.