Question

C1 viết chương trình tính dãy số thập phân từ 1+1/2+1+1/3+1/4...+1/9

C2 nhập vào 1 số nguyên N, in ra tổng các số lẻ từ 1--->N

Giúp tuii đyyy !!

Answer 1

1:

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 9 do

s:=s+1/i;

writeln('s=',s:4:2);

readln;

end.

2:

uses crt;

var i,n,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

for i:=1 to n do

if i mod 2<>0 then t:=t+i;

writeln(t);

readln;

end.