PITICII PROGRAMATORI

Utilizarea instrucţiunilor de ciclare pentru generare de numere 1) Să se afişeze toate numerele de forma a23a care se împart exact la 6. 2) Un lift coboară de la etajul a la etajul b. Afişaţi toate etajele pe care le parcurge. Exemplu : Date de intrare 8 3 Date de ieşire 8 7 6 5 4 3. 3) Să se afişeze tabla înmulţirii cu n. Exemplu : Date de intrare n=5 date de ieşire 1x5=5 2x5=10 3x5=15 4x5=20 5x5=25 6x5=30 7x5=35 8x5=40 9x5=45 10x5=50. 4) Să se afişeze perechile de numere a şi b care satisfac relaţiile a+b=1000; 17 divide pe a şi 19 divide pe b. 5) Să se genereze primii n termeni ai şirului 1,1,2,2,2,3,3,3,3,4,4,4,4,4,…. 6) Să se afişeze primii n termeni ai şirului lui Fibonacci : 0,1,1,2,3,5,8,13,21…. 7) Se dă un număr. Să se scrie, dacă se poate, ca sumă de două numere impare. Exemple : date de intrare 24 Date de ieşire 24=1+23 24=3+21 24=5+19 24=7+17 24=9+15 24=11+13 ; Date de intrare 33 Date de ieşire Nu se poate. 8) Se dă un număr. Să se scrie, dacă este pos...

INSTRUCŢIUNILE DE BAZĂ ALE LIMBAJULUI PASCAL Limbajul PASCAL a fost conceput special pentru scrierea programelor structurate. Limbajul are o sintaxă riguroasă (totuşi, uneori, rigidă) şi mari posibilităţi de extindere a tipurilor de date. INSTRUCŢIUNEA VIDĂ  nu execută nimic, dar există cazuri în care avem nevoie de ea;  dacă apare simbolul ';' în faţa cuvântului 'END' avem o instrucţiune vidă; ex: un anumit rezultat întreg r dorim să îl corectăm după următoarea regulă: "DACĂ r>0 şi impar ATUNCI r:= r+1 ALTFEL r:= r-1; SF_DACĂ" {ODD este o funcţie booleană care stabileşte dacă un număr este par sau impar. Această determinare se poate face şi astfel: r mod 2 = 0 pentru. numere pare sau r mod 2 0 pentru. numere impare.} Secvenţă greşită Secvenţă corectă IF r>0 THEN IF ODD(r) THEN r:= r+1 ELSE r:= r-1; Este interpretată: IF r>0 THEN IF ODD(r) THEN r:= r+1 ELSE r:= r-1; IF r>0 THEN IF ODD(r) THEN r:= r+1 ...

32. Se citeşte un număr întreg format din exact 3 cifre. Tipăriţi suma cifrelor sale. program pd32;{suma cifrelor unui numar format din exact 3 cifre} var n:integer; begin write('n=');readln(n); writeln('s= ',n mod 10+(n div 10)mod 10+(n div 10)div 10); readln; end.