Toate programele Pascal rezolvate pentru bacalaureat

readln; end.

program cn2; uses crt; var n: longint; s, k: integer; begin clrscr; write (n=); readln (n); s: =0; k: =0; while n0 do begin k: =k+1; s: =s+n mod 10; n: =n div 10 end; writeln (Numarul are , k, cifre); writeln (Suma cifrelor numarului este , s); readln; end.

program np1; uses crt; var n, i: integer; begin clrscr; write (n=); readln (n); write (Divizorii sunt ); for i: =1 to n do if n mod i=0 then write (i, ); readln; end.

program np2; uses crt; var n, i: integer; prim: boolean; begin clrscr; write (n=); readln (n); prim: =true; for i: =2 to round (sqrt (n)) do if n mod i=0 then prim: =false; if prim then write (Nr este prim) else write (Nr nu este prim); readln; end.

program np3; uses crt; var n, k, i: integer; prim: boolean; begin clrscr; write (n=); readln (n); write (Numerele prime mai mici decat , n, sunt ); for k: =2 to n-1 do begin prim: =true; for i: =2 to round (sqrt (k)) do if k mod i=0 then prim: =false; if prim then write (k, ) end; readln; end.

program np4; uses crt; var n, i: integer; begin clrscr; write (n=); readln (n); write (Factorii primi sunt ); i: =1; while n1 do begin i: =i+1; while n mod i=0 do begin write (i, ); n: =n div i end end; readln; end.

program as1; uses crt; var n, p, i: integer; begin clrscr; write (n=); readln (n); p: =1; for i: =2 to n do p: =p*i; write (n, ! este , p); readln; end.

program as2; uses crt; var n, s, i: integer; begin clrscr; write (n=); readln (n); s: =0; for i: =1 to n do s: =s+i; write (Suma este , s); readln; end.

program as3; uses crt; var n, s, i: integer; begin clrscr; write (n=); readln (n); s: =0; for i: =1 to n do s: =s+i*i; write (Suma este , s); readln; end.

program as4; uses crt; var n, s, p, i, j: integer; begin clrscr; write (n=); readln (n); s: =0; for i: =1 to n do begin p: =1; for j: =2 to i do p: =p*j; s: =s+p end; write (Suma este , s); readln; end.

program as5; uses crt; var x, n, p, i: integer; begin clrscr; write (x=); readln (x); write (n=); readln (n); p: =1; for i: =1 to n do p: =p*x; write (Rezultatul este , p); readln; end.

program as6; uses crt; var a, b, aux: integer; begin clrscr; write (a=); readln (a); write (b=); readln (b); aux: =a; a: =b; b: =aux; writeln (a=, a); writeln (b=, b); readln; end.

program as7; uses crt; var a, b, c, max, min: integer; begin clrscr; write (a=); readln (a); write (b=); readln (b); write (c=); readln (c); if a>b then max: =a else max: =b; if max ...