Pagalba del pascalio

Sveiki programuotojai, prireike padeti del pascalio zmogui, gal galite parasyti, kaip turetu atrodyti programa? :)

Parasyti programa, kuri rastu maziausia naturaluji skaiciu, turinti n skirtingu dalikliu. Pvz., jei n=6, tai toks skaicius yra 12.

Kas nors?

O,atrodo sutvarkiau,kad eitų normaliai kodą įdėti,štai ir jis :

program Noname49;
 var a,i,j,n,kiek:integer;
     b:boolean;
begin
readln(n);
 i:=0;
  b:=false;
 While not b do
 Begin
   inc(i);
   For j:=1 to i do
   Begin
     if i mod j = 0 then
     Begin
       writeln(j);
       inc(kiek);
       a:=i;
     end;
     if kiek = n then b:=true;
   end;
   kiek:=0;
 end;
 writeln(a);
 Readln;
end.

faktorialas čia :)))

program test;
var i,, j n, rez;
begin
n:=6;
rez := 1;
j := n - 1;
for i := 1 to j do
rez := rez * i;
writeln(rez);
end;

kažkas panašaus. arba ne taip supratau.

program Uzduotis;
var N, skaicius, i, z : longint;
begin
 ReadLn(N);
 i := 0;
 z := 1;
 skaicius := 1;
 while i <= N do
   begin
       for z := 1 to skaicius do
           if skaicius mod z = 0
           then i := i + 1;
       if i < N
           then begin
               skaicius := skaicius + 1;
               i := 0;
           end
           else break;
   end;
 WriteLn(skaicius);
 Readln;
end.

Aciu :)

Sveiki pagelbekit su pascal jeigu galit. Tema ciklai. Cia salyga.

a) Duomenis apie autoriu: T.y. Mokyklos pavadinima, klasę, mokinio vardą ir pavardę bei data.

b) Sąlygą.

d) Skaičiavimą (gali būti lentele)

e) Programos užbaigimą.

Sąlyga: Programos pagalba kompiuteris išrenka tik tuos keturženklius skaičius kurių pirmųjų

dviejų ir paskutiniūjų dviejų skaitmenų sumos yra lygios ir apskaiciuoja kiek tokių skaičių yra.

Aciu.

 

Sąlyga: Programos pagalba kompiuteris išrenka tik tuos keturženklius skaičius kurių pirmųjų

dviejų ir paskutiniūjų dviejų skaitmenų sumos yra lygios ir apskaiciuoja kiek tokių skaičių yra.

 

Padariau mini pavyzdį pagal sąlygą,tik pesidarysi pats kaip jau tau reikia,iš kur skaičius trauksi ir panašiai.

Esmę turėtum suprast.

program Noname66;
 var P1,P2,K1,K2,i,j,n,k:integer;
     mas:array[1..100] of integer;
begin
 Mas[1]:=1221;
 Mas[2]:=5464;
 Mas[3]:=9295;
 Mas[4]:=3003;
 k:=0;
 For i:=1 to 4 do
 Begin
   p1:=mas[i] div 1000;   // P1 - pirmas skaicius
   p2:=mas[i] div 100 mod 10; // P2 - antras
   K1:=mas[i] div 10 mod 10;  // K1 - nuo galo antras
   K2:=mas[i] mod 10;  // K2 - paskutinis
   if p1+p2=k1+k2 then
   Begin
    Writeln(mas[i],'- Tinka,nes ',p1,'+',p2,'=',k1,'+',k2);
     inc(k);  //Kaupiama kiek tokiu skaiciu yra, kurie tenkina salyga
   end; 
 end;
 Writeln(' Is viso tokiu skaiciu yra : ', k);
 readln;
end.

Aciu.