program exercitiu;
var x:Integer;
a:Integer;
b:Integer;
c:Integer;
s:Integer;
begin
write('x=');readln(x);
a:=x mod 10;
b:=(x div 10) mod 10;
c:=x div 100;
s:=a+b+c;
write(s);
readln;
end.
Trebuie sa scrii exact ca si mai sus in pascal, altfel nu o sa iti mearga.
X este numarul format din 3 cifre.
a este prima cifra
b este a doua cifra
c este a treia cifra
s - suma lor.
Ex : X = 123
a = 1
b = 2
c = 3
=> s = 6
ca sa rulezi programul , dupa ce l-ai scris, apesi alt+f9 , apesi enter iar apoi apesi ctrl+f9 . Iti va aparea o fereastra noua unde te va intreba cat este x. scrii orice numar format din 3 cifre, dai enter iar programul iti va rezolva singur.
Spor !
