flaviumanica

Program numere;
Var n,s,i,j,nr,nrplus:integer;
BEGIN
s:=0;nr:=0;
WHILE s<=9999 DO BEGIN
{FOR i:=1 to n DO BEGIN
{FOR j:=1 to i DO BEGIN
{s:=s+j;
nr:=nr+1;}
END;}
END;}
END;
nrplus:=nr-1;
writeln('nrplus');
readln(nrplus);
END.


in turbo pascal ar fi cv de genul asta??:D

ixirimdi

Relativ la BONUS-ul de ieri, asa cum a observat o eleva careia ii place GM (felicitari !),
acele nr erau numite " adunate " de propunator, dar mie mi s-au parut destul de aiurea si
d'aia le-am zis asa, anyway...
Eu am inteles cam asa: de exemplu cifrele 1 si 3 au ca vecin comun cifra 2 si deci un numar
cerut ar fi cu cifrele 1 si 3, ca: 1133 sau 1331, etc... aici deja se cam aiureste aiureala :)
Daca ne punem mintea cu ea, pâna la urma se pot numara toate, da' n-are rost :)

Legat de problema de azi, o stiu da' nu vreau sa spun  :D