Keletas pascal uždavinių

Tema: ciklas cikle. Nesuprantu kaip spręsti štai šiuos uždavinius:

5. Parašykite algoritmą apskaičiuoti sumai 1*2+2*3*4+...+n*(n+1)...2n

6. Parašykite algoritmą, kuris rastų mažiausią intervalo [1;n] skaičių, turinį daugiausiai daliklių.

10. Duotas ciklas cikle

for i:=a to b do

...

for j:=c to d do

...

Kintamųjų a,b,c ir d reikšmės nekeičiamos. Kiek kartų galėjo būti atliktas išorinis ciklas, jeigu žinoma, kad vidinis ciklas buvo atliktas:

a)7, b)6, c)1, d)0 kartų?

Kiek kartų galėjo būti atliktas vidinis ciklas, jeigu žinoma, kad išorinis ciklas buvo atliktas:

a)1, b)2, c)12, d)0 kartų?

11. Pradiniai duomenys - natūralieji skaičiai min ir max. Parašykite programą, kuri rastų visus galimus trikampius, kurių kraštinių ilgiai a,b ir c yra taip pat natūralieji skaičiai, tenkinantys lygybę:

min<=a<b<c<=max

Pavyzdžiui, kai min=2, max=5, tai galima sudaryti tris trikampius, kurrių kraštinių ilgiai yra šitokie:

2 3 4

2 4 5

3 4 5

Šį uždavinį sprendžiau taip... bet duoda tik 4 atsakymus (234,245,345,235)... Manau, kad mano sprendime nėra klaida, o yra klaida knygos atsakymuose, kaip jūs manote?:

program programa11;
var min,max,i,skx,sky,sk,skx2,sky2,skxx,skyy:longint;
begin
min:=2;
max:=5;
for i:=min to max do
begin
sk:=i;
   skx:=sk + 1;
   sky:=sk + 2;
   if skx <= max
       then if sky <= max
           then writeln (sk,skx,sky);
   skxx:=sk +2;
   skyy:=sk +3;
   if skxx <= max
       then if skyy <= max
           then writeln(sk,skxx,skyy);
   skx2:=sk - 2;
   sky2:=sk - 3;
   if skx2 >= min
       then if sky2 >= min
           then writeln(sky2,skx2,sk);
end;
readln;
end.

Dėkui :)

As gaunu tokius atsakymus 11 tam uzdaviny :

2 3 4

2 3 5

2 4 5

3 4 5

Ne trys, bet visi tenkina duota salyga.

5.

for(int i = 1; i <= n; i++){
for(int j = i; j <= 2n; j++){
 c = c*j;
}
ats += c;
c = 0; 
}

netestavau, bet turetu but kazkas tokio