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:
Ada_net la Simpatie.ro
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 47 ani
FORUM / Forum Nou / 25  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
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
pus acum 18 ani
   
Pagini: 1  

Mergi la