Se citesc doua numere naturale n si s (n<=10, s<=20). Afisati în ordine crescatoare toate numerele cu n cifre distincte care au suma cifrelor egala cu s. Daca problema nu are solutie, se va afisa mesajul “NU EXISTA”. Exemple: n=4, s=9 => 1026, 1035, 1053, 1062, 1206, 1260, 1305 … n=4, s=5 =>„NU EXISTA”

Question

Adi98steaua89 Adi98steaua89

30-05-2017
Informatică

a fost răspuns

Se citesc doua numere naturale n si s (n<=10, s<=20). Afisati în ordine crescatoare toate numerele cu n cifre distincte care au suma cifrelor egala cu s. Daca problema nu are solutie, se va afisa mesajul “NU EXISTA”. Exemple: n=4, s=9 => 1026, 1035, 1053, 1062, 1206, 1260, 1305 … n=4, s=5 =>„NU EXISTA”

Răspuns :

Alte intrebari

Exercitiillll 3 Vaaaa Rooggg Muuullttttt

Calculati: 2+4+6+...+102 Cu Explicatie Va Rog Dau Coroana

Pe Baza Acestei Hărţi, Precizați Pe Foaia De Test.1. Punctul Geografic Extrem Nordic Al Europei; 2. Distanţa Din România Până La: Capul Roca Şi Până La Insula C

Analizati Adj. Din Prop: Bătrânul Țăran A Pus Pe Foc Un Braț De Lemne Uscate

1. Scrie În Casetă Litera Corespunzătoare Răspunsului Corect. Conțin Diftongi Toate Cuvintele Din Seria: A),baie”, „era". B) ,,imediat”, .plăcea". C), Verişoara

In Triunghiul Dreptunghic ABC, Bisectoarea unghiului B Intersecteaza Latura AC In Punctul E.Paralela Prin E La AB Intersecteaza BC In D,paralela Prin E La BC In

Când Alergau Pe Coridorul Şcolii, Colegii Mei Păreau Spiriduşi Puşi Pe Glume. Să Se Fi Întâlnit Cu Doamna Dirigintă, N-ar Mai Fi Fost Veseli Analizați Predicat

7. Determinați Numărul Mulțimilor De Patru Elemente {a,b,c,d}, Care Sunt Submulțimi Ale Mulțimii {1,2,3,..., 2021} Si au Proprietatea A + B = C+d=2021.

9. Două Cercuri, Având Razele 6 Cm Și 4 Cm, Sunt Tangente Exterioare. Calculați Lungimea Segmentului Careunește Centrele Celor Două Cercuri. Realizați Desenul C

IV. Alcătuieşte Un Text (aproximativ Cinci Replici), În Care Să Îți Imaginezi O Discuţie Între Cele Cinci Cazuri Ale Substantivului.

Stassahul Stassahul · Answer 1 · 2017-05-30T00:38:55+03:00

var a:array of byte;
n,s,c,k,k1,a1,a2,g:byte;
i,r,max,e:integer;

begin

read(n,s);
writeln;
setlength(a,n);
i:=1;

for c:=1 to n-1 do i*=10;

max:=i*10-1;

for i:=i to max do begin
r:=i;
k:=0;
k1:=0;
g:=0;
for a1:=0 to n-1 do begin
  k:=r mod 10;
  r:=r div 10;
  inc(k1,k);
  a[a1]:=k;
  end;
for a1:=0 to n-1 do
  for a2:=0 to n-1 do
   if (a[a2]=a[a1]) and (a1<>a2) then inc(g);
if (g=0) and (k1=s) then begin
  write(i,' ');
  inc(e);
  end;
end;

if e=0 then write('NU EXISTA');

end.