1,viết chương trình tính tổng các số lẻ không vượt quá n
2,viết chương trình tính tổng S=1+1/2+1/3+…+1/n
1,viết chương trình tính tổng các số lẻ không vượt quá n 2,viết chương trình tính tổng S=1+1/2+1/3+…+1/n
By Liliana
By Liliana
1,viết chương trình tính tổng các số lẻ không vượt quá n
2,viết chương trình tính tổng S=1+1/2+1/3+…+1/n
1/
uses crt;
var i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
if i mod 2<>0 then s:=s+i;
writeln (‘tong cac so le ko vuot qua n: ‘,s);
2/
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do s:=s+(1/i);
writeln (‘tong la: ‘,s:1:2);
readln;
end.
bài 1:
program tinhtong;
uses crt;
var n,i,s:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write(‘Tong cac so le khong vuot qua ‘,n,’ la: ‘,s);
readln
end.
Bài 2:
program tinhtong;
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
write(‘S= ‘,s:2:2);
readln
end.