FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
roxigirl85 pe Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
30 - 46 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{se citesc dela tastatura n si k si apoi sir
n numere nat.sa se afise cu k+1 zecimale}
program douazecisicinci;
type vect=array[1..100]of real;
var v:vect;
n,i,k:integer;
procedure citire(var v:vect;var n,k:integer);
var i:integer;
begin
write('n=');readln(n);
for i:=1 to n do read(v[i]);
write('k=');readln(k);
end;
function suma(x:real;k:integer):integer;
var s:integer;
begin
s:=0;
while k>0 do
begin
x:=x*10;
s:=s+trunc(x) mod 10;
k:=k-1;
end;
suma:=s;
end;
begin
|
|
| |
|
