Question

5. Se citește de la tastatură un șir de n numere întregi. Să se afișeze toate perechile de elemente consecutive cu proprietatea că al doilea element al perechii este egal cu suma cifrelor primului. Ex : Pentru șirul (125, 8, 12, 44, 8, 9) se afișează perechile (125, 8), (44, 8).

Answer 1

var a:array of integer;
i:byte;
n,c,s,p:integer;
begin
Write('Marimea sirului: ');
read(n);
setlength(a,n);
Writeln('Numerele:');
for i:=0 to n-1 do read(a[i]);
Writeln('Perechi:');
for i:=0 to n-1 do begin
if i>0 then begin
p:=a[i-1];
s:=0;
while p>0 do begin
c:=p mod 10;
s+=c;
p:=p div 10;
end;
end;
if i>0 then if s=a[i] then writeln('(',a[i-1],', ',a[i],')');
end;
end.

Answer 2

list = [ ]
print "Introdu numere cate vrei, apoi scrie exit, si programul va trece la etapa urmatoare, adica prelucrarea datelor."
while 1:
---a = "introdu un numar: "
---if "exit" in a:
------break
---list.append(a)

for i in list:
---sum = 0
---for e in i.split(""):
------sum = sum + e
---for y in list:
------if sum == y:
---------print str(i), str(y)