👤

Sa se scrie un program care citeste un numar natural de minim 3 cifre si determina suma dintre cifra sutelor si a unitatilor. In pascal, multumesc!

Răspuns :

Suma sutelor si unitatilor:

var a,b,c,i,h:integer;

begin

Write('Numar de 3 cifre: ');

read(i);

a:=i div 100;

b:=i div 10 mod 10;

c:=i mod 10;

h:=a+c;

writeln('Cifra sutelor: ',a,', Cifra zecimilor: ',b,', Cifra unitatilor: ',c);

writeln('Suma sutelor si unitatilor=',h);

end.