PITICII PROGRAMATORI

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.

31. Se citesc două valori întregi a şi b. Tipăriţi media lor aritmetică. program pd31;{media aritmetica a doua valori} var a,b:integer; begin write('a=');readln(a); write('b=');readln(b); writeln('media aritmetica a celor doua valori este ma= ',(a+b)/2:4:2); readln; end.

29. Se citesc două valori întregi a şi b. Să se interschimbe conţinutul lor folosind o variabilă auxiliară (temporară). program pd29;{interschimbarea cu var temp} var a,b,temp:integer; begin write('a=');readln(a); write('b=');readln(b); temp:=a; a:=b; b:=temp; writeln('noile valori sunt: a=',a,' b=',b); readln; end. 30. Se citesc două valori întregi a şi b. Să se interschimbe conţinutul lor fără a folosi o variabilă auxiliară (temporară). program pd30;{interschimbarea fara var temp} var a,b:integer; begin write('a=');readln(a); write('b=');readln(b); a:=a-b;b:=a+b;a:=b-a; writeln('noile valori sunt: a=',a,' b=',b); readln; end.

28. Se citesc două valori întregi a şi b. Să se tipărească valoarea cea mai mică. program pd28;{se citesc doua valori a si b, sa se tipareasca cea mai mica.} var a,b:integer; begin write('a=');readln(a); write('b=');readln(b); if a=b then writeln('SUNT EGALE!') else if a>b then writeln('a este mai mare decat b!') else writeln('b este mai mare decat a!'); readln; end.