Question

Cum se rezolva in pascal?

Answer 1

Citește a , b

Dacă a>b

Pentru(i=a;i<=b;i++)

Cattimp (i>0)

S=S+i%10

i=i/10

Dacă(S==15)

Scrie i

Altfel

Dacă(b<a)

Pentru(i=b;i<=a;i++)

Cattimp (i>0)

S=S+i%10

i=i/10

Dacă(S==15)

Scrie i

Cred că e corect