Viết phương trình tính tống S=\(\dfrac{1}{2}+\dfrac{1}{4}+\dfrac{1}{6}+...+\dfrac{1}{2n}\)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Cách làm này là cách làm theo mảng nhé:
Uses crt;
var n,s:int64;
i:longint;
a:array[1..10000] of int64;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then
s:=s+a[i];
writeln('Tong so chan:',s);
s:=0;
for i:=1 to n do
if a[i] mod 2#0 then
s:=s+a[i];
writeln('Tong so le:');
readln
end.
Bài này có nghĩa là in ra tổng của 1 dãy số n lẻ hoặc chẵn VD: 1,3,5,...,n chứ không phải là mảng bạn nhé. Bài bạn cũng mắc 1 số lỗi .
Dấu # không phải là khác trong Pascal a[i] mod 2<>0 mới đúng.
Ở phần dưới bạn writeln('Tong so le :'); thì nó chỉ in ra Tong so le chữ không in kết quả.
Lời giải:
program hotrotinhoc;
var a: array[1..32000] of integer;
d,d1,i,n: integer;
begin
write('N='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0; d1:=0;
for i:=1 to n do
begin
write(a[i],' ');
if a[i] mod 2=0 then inc(d);
if (a[i] mod 5=0) and (a[i] mod 2=0) then inc(d1);
end;
writeln('Co tat ca ',d,' so chan');
write('Co tat ca ',d1,' so chan chia het cho 5');
readln
end.
uses crt;
var n,i,dem: integer;
tb: real;
A:array[1..1000] of integer;
writeln('Nhap do dai day: '); read(n);
writeln('Nhap cac phan tu cua day: ');
for i:=1 to n do
begin
writeln('a[',i,']='); read(a[i]);
end;
tb:=0;
for i :=1 to n do
begin tb:=tb+a[i]; dem:=dem+1; end;
tb:=tb/dem;
writeln('Gia tri Tb la: ',tb);
readln
end.