Varianta 31

admin · Administrator Data inscrierii: 30/Ian/2007 Mesaje: 76

Am deschis un subiect nou:

La intrebarea 4 sirul care trebuie generat este:

12,21,102,111,120,201,210

Pentru a fi mai clar, aveti aici si un program demonstrativ (neoptimizat, daar nu asta se cere) :-)

===============================================
program numere;
var n,nr: longint;

function suma(n:longint):longint;
begin
if n=0 then suma:=0
else suma:=n mod 10+suma(n div 10);
end;

function verific(n:longint):boolean;

begin
if n=0 then verific:=true
else verific:=((n mod 10)in [0,1,2]) and verific(n div 10);
end;

begin
n:=1; nr:=0;
while (nr<>7) do
begin
if verific(n) and (suma(n)=3) then
begin
inc(nr);
writeln(n);
end;
if nr<>7 then inc(n);
end;
writeln(n);
readln;
end.
=====================================

	Pagina de start a forumului proinfo.MyForum.ro :: Solutii informatica	Ora este GMT + 2 ore
Pagina 1 din 1