FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
crazygirl
Femeie
24 ani
Buzau
cauta Barbat
26 - 80 ani
FORUM / Forum Nou / 14  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{realizati un prgcare primeste un nr real pozitiv
n si ii truncheaza partea fractionara a.i sa formeze
un sir crescator}
program patrusprezece;
var n,m:real;
begin
     write('n='); readln(n);
     write(trunc(n), '.');
     m:=frac(n)*10;
     write(trunc(m) mod 10);
     while trunc(m) mod 10< trunc(m*10) mod 10 do begin
           m:=m*10;
           write(trunc(m) mod 10);
           end;
     readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la