FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Andreea_K Profile
 | Femeie
25 ani
Caras Severin
cauta Barbat
30 - 49 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|
