Program Ulesanne3_a;
Var f: longint;
i,n:
byte;
Begin
Writeln('Sisestage üks naturaalarv: ');
Readln(n);
f := 0;
for i := 1
to n do
f := f
+ i;
Writeln('Summa on ', f);
Readln;
End.
Program Ulesanne3_b;
Var f: longint;
i,n,q:
byte;
Begin
Writeln('Sisestage üks naturaalarv: ');
Readln(n);
f := 0;
for i := 1
to n do
begin
Writeln('Sisestage üks naturaalarv (', i, '):');
readln(q);
f := f + q;
end;
Writeln('Summa on ', f);
Readln;
End.
Program Ulesanne3_c;
Var f: longint;
i,n,q:
byte;
Begin
Writeln('Sisestage üks naturaalarv: ');
Readln(n);
f := 0;
for i := 1
to n do
begin
Writeln('Sisestage üks naturaalarv (', i, '):');
readln(q);
f :=
f + q;
end;
Writeln('Keskmine on ', f/n:10:3);
Readln;
End.
Program Ulesanne3_d;
Var f: real;
i,n,q:
byte;
Begin
Writeln('Sisestage üks naturaalarv: ');
Readln(n);
f := 0;
for i := 1
to n do
f := f +
1/(1+i*i);
Writeln('Summa on ', f:5:2);
Readln;
End.
Program Ulesanne3_e;
Var f: real;
i,n,q:
byte;
Begin
Writeln('Sisestage üks naturaalarv: ');
Readln(n);
f := 1;
for i := 1
to n do
f := f *
(i+1)/2;
Writeln('Summa on ', f:5:2);
Readln;
End.