Cho số tự nhiên n nhập tư bàn phím, Hãy lập trình để tính các tổng sau : A= 1+ 1/2^2 + 1/3^2 +...+ 1/n^2
MN giúp mình vs nha mai mình thi rồi :((
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.
uses crt;
var i,j,k:integer;
begin
clrscr;
for i:=1 to 20 do
for j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3=100 then writeln('Trau dung ',i,' Trau nam ',j,' va Trau gia ',k);
end;
readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i,tbl,tbc,dem,dem1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tbc:=0;
tbl:=0;
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
inc(dem);
tbc:=tbc+a[i];
end;
if a[i] mod 2<>0 then
begin
inc(dem1);
tbl:=tbl+a[i];
end;
end;
writeln('Trung binh cong cua cac so chan la: ',tbc/dem:4:2);
writeln('Trung binh cong cua cac so le la: ',tbl/dem1:4:2);
readln;
end.
uses crt;
var a,b,i:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<b then
begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i:4);
end
else begin
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
readln;
end.
uses crt;
var i,d,dem:integer;
st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('So ki tu trong xau ',st,' la: ',d);
dem:=0;
for i:=1 to n do
if st[i]=' ' then inc(dem);
writeln('So tu trong mot xau la: ',dem+1);
readln;
end.
Bài 1:
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln('Tong cac phan tu duong cua mang la: ',t);
readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
readln;
end.
Các từ khóa trong câu lệnh for.. do là for; to; do
Các từ khóa trong câu lệnh while do là while; do
Câu lệnh While.. do thực hiện tối thiểu 0 lần
Câu lệnh For..do thực hiện tối thiểu 1 lần
uses crt;
var a:array[1..100]of integer;
n,i,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
uses crt;
var i,n:integer;
a:real;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+1/sqr(i);
writeln('Ket qua la: ',a:4:2);
readln;
end.