1.Lập trình bài toán tính S với nhập n là số lẻ và n > 99. Tính S= 1/3 +1/5 +1/7+ … +1/n S=0 , for n ( 3, n+1, 2) s= s+1/n 2, lập trình tính S = 1+ 7+ 14+ 21+... + 105
1 câu trả lời
Bài 1 :
program tinh;
uses crt;
var i, n: integer;
s:real;
begin
clrscr;
write(' nhap n:'); readln( n);
s := 0;
for i:= 3 to n do
if i mod 2 = 1 then
s := s+ 1/i;
writeln(' tong s la:', s :8:2 );
readln
end.
Bài 2 :
program tinh;
uses crt;
var i, s : integer;
begin
clrscr;
s := 1 ;
for i:= 1 to 105 do
if i mod 7 = 0 then
s := s+ i ;
writeln(' tong s la:', s );
readln
end.
Câu hỏi trong lớp
Xem thêm
