adunare.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 16 行

program adunare;
{dandu-se un nr. n sa se calculeze :T=1*3*5*...*(2n-1) si
                                    U=1+3+5+...+(2n-1)}
var n,T,U,i:integer;
begin
write('n= ');
readln(n);
T:=1;
U:=0;
for i:=1 to n do
    T:=T*(2*i-1);
for i:=1 to n do
    U:=U+(2*i-1);
if n=0 then T:=0;
writeln('produsul cifrelor impare de la 0 la ',n,' este ',T,' iar suma este ',U);
end.