viết chương trình sau dùng cấu trúc lặp for..do (câu S4, S5 dùng thêm câu lệnh if...else)
S1: 1+2+3+...+100.S2: 1+2+3+...N.S3: 1+1/2+1/3+...1/N.S4: 2+4+6+...+N.S5: 1+3+5+...+N.S6: 1.2.3.....N.viết chương trình sau dùng cấu trúc lặp for..do (câu S4, S5 dùng thêm câu lệnh if...else)
S1: 1+2+3+...+100.S2: 1+2+3+...N.S3: 1+1/2+1/3+...1/N.S4: 2+4+6+...+N.S5: 1+3+5+...+N.S6: 1.2.3.....N.viết chương trình sau dùng cấu trúc lặp for..do (câu S4, S5 dùng thêm câu lệnh if...else)
Nhập vào 2 số nguyên dương M, N (M <= 1). Đếm các số chia hết cho 3 và 2.
Viết chương trình tính tổng các số từ m đến n( m,n được nhập từ bàn phím m>= n)
uses crt;
var i,m,n,t:integer;
begin
clrscr;
readln(n,m);
t:=0;
for i:=n to m do t:=t+i;
writeln(t);
readln;
end.
Var i,m,n:integer;
s:longint;
Begin
Write('Nhap m = ');readln(m);
Write('Nhap n = ');readln(n);
While m<n do
Begin
write('Nhap m = ');readln(m);
write('Nhap n = ');readln(n);
end;
For i:=n to m do
S:=s + i;
Write('Tong cac so tu n toi m la ',s);
Readln;
End.
viết chương trình tính tổng y= 1/2+3/4+5/6+...+9/10
Bài tập 1) viết chương trình hoàn chỉnh tính tổng sau S1=2+4+6+...+N sau đó in ra kết quả.
bài tập 2) viết chương trình hoàn chỉnh tính tổng sau S2=1+1/3+1/5+...+1/N SAU ĐÓ in ra kết quả ra màn hình làm tròn 2 chữ số thập phân.
bài tập 3) lập trình tính biểu thức S4= 1bình +2binh+ 3binh+...+n bình với n là số nguyên dương nhập từ bàn phím
bài tập 4) viết chương trình T các số lẻ tự nhiên từ 1 đến N sau đó in ra kết quả ra màn hình
bài tập 5) lập trình tính n! và in ra kết quả ra màn hinhg vs n đưa vào tùy ý
bài tập 6) tính hàm lũy thừa a mũ n ở đây a thực n tự nhiên đc nhập vào từ bàn phím
bài tập 7) nhập vào một số N nguyên dương tính và đưa ra màn hình tổng bình phương các ước nhỏ hơn N
giải nhanh giúp em vs ạ
viết chương trình tính tổng điểm trung bình của 3 ba môn Văn, Sử, Địa in kết quả ra màn hình
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
writeln((a+b+c)/3:4:2);
readln;
end.
Tính tổng S=1+2+3+....+n+.....+ cho đến khi S>1000. Điều kiện nào sao đây cho vòng lặp While-do là đúg:
A. While S< 1000 do
B. While S> 1000 do
C. While S<= 1000 do
D. While S>= 1000 do
viet chuong trinh nhap vao so nguyen N. tinh va in ra man hinh tong cac so le trong pham vi N
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
Viết chương trình tính tổng dãy số nhập từ bàn phím sao cho không vượt qua 200
uses crt;
var x,i,n,t:integer;
begin
clrscr;
t:=0;
repeat
readln(x);
t:=t+x;
until t>200;
writeln(t);
readln;
end.