viet chuong trinh tính tong S= 1-2 +3 -4+...+(-1)^(n+ 1) với 0 < n<= 10000.
sd cấu trúc lặp.
Những câu hỏi liên quan
1 viet chuong trinh in ra man hinh bang cuu chuong 2
2 viet chuong trinh tinh tong S=1/1+1/2+.......+1/n voi gia tri n nhap vao tu ban phim
lam on giup minh voi thu nam minh kiem tra roi
Đúng 0
Bình luận (0)
Sử dụng For...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0;
Đối với t: = 1 đến n làm s: = s + 1 / t;
writeln('Tổng s là',s);
readln
kết thúc.
Sử dụng While...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0; t: = 1;
Câu 2:Trong khi t <= n làm
bắt đầu t: = t + 1;
s: = s + 1 / t kết thúc;
writeln('Tổng s là',s);
readln
kết thúc.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Câu 28: Viet chuong trinh tinh tong S - 1*1+ 2*2+3*3+...+ n*n bang cãu
lênh: For...to...do... (hoãc câu lênh While...do...). Trong dó n là môt so
nguyên nhap tù bàn phim
Program HOC24;
var i,n: integer;
S:longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i*i;
write('S= ',s);
readln
end.
Đúng 3
Bình luận (3)
Cau 1: Viet chuong trinh nhap vao n so thuc. Tinh tong cua n so do
uses crt;
var s,n,i:integer;
a:array [1..100] of real;
begin
s:=0;
write('nhap so so hang cua day');readln(n);
for i:=1 to n do begin
writeln('so thu',i,'la: '); readln(a[i]); s:=s+a[i]; end;
write('tong day so thuc la:',s); readln;
end.
Đúng 2
Bình luận (1)
uses crt;
var a:array[1..100]of real;
i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln(s:4:2);
readln;
end.
Đúng 1
Bình luận (0)
viet chuong trinh nhap so n nguyen duong (n<=100) sau do tinh tong cai so tu 1 den N viet ket qua ra man hinh
var s,i,n:integer;
begin
Write('n = ');
While (n > 100) and (n < 1) then
Begin
write('Nhap sai, nhap lai ');readln(n);
End;
for i:=1 to n do
s:=s+i;
write('tong la: ',s);
readln;
end.
Đúng 1
Bình luận (0)
viet chuong trinh tinh tong 100 so tu nhien đầu tiên từ 1...100
program bai1;
var s,i:longint;
begin
s:=0;
for i;=1 to 100 do s:=s+i;
write('s= ',s);
readln
end.
Đúng 0
Bình luận (0)
program tong;
var
i, S: integer;
begin
S:=0
for i:=1 to 100 do S:=S+i;
writeln('tong la=', S);
readln
end.
Đúng 0
Bình luận (0)
viet chuong trinh tinh tong P= 1+3+5+...+201
Program HOC24;
var P: integer;
i: byte;
begin
p:=0;
for i:=1 to 201 do if i mod 2=1 then p:=p+i;
write('P= ',p);
readln
end.
Đúng 0
Bình luận (0)
viet chuong trinh tinh tong cac so co gia tri khac nhau trong day n so nguyen (1<n<1000) duoc nhap tu ban phim
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Viet doan chuong trinh sau de tinh tong
S=\(\frac{1}{1.3}+\frac{1}{2.4}+\frac{1}{3.5}+....+\frac{1}{n.\left(n+2\right)}\)
su dung lenh for...to..do va while...do