program:Tinh_tong;
Var: S,i,n:integer;
begin
S:=0;N:=2;
for i:=3 to 50 do S:=S+(N+1)/i;
writeln('tong can tim la',);
readln;
end.
*ghi chú: bài được làm bởi người giỏi tin nhất khối 8 trường Phạm Đình Quy.
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
viết phương trình tích từ s=(1+2+3+4+...+2018) sử dụng while hoặc for do
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+3+5+...+n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +1980?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng vòng lập for...do
tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng vòng lập while...do
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2+1/3+...+1/n. N là số nguyên nhập từ bàn phím
Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=1+1/2²+1/3²+...+1/n². N là số nguyên nhập từ bàn phím
Câu 1: Thực hiện đoạn chương trình sau, giá trị S là bao nhiêu
S:=0;
For i:=1 to 4 do S:=S+i;
Câu 2: Thực hiện đoạn chương trình sau, chữ xin chao được in ra màn hình mấy lần
n:=1;
while n<4 do
begin n:=n+1; writeln('xin chao')end;
Câu 3: So sánh cấu trúc lệnh lặp for...to..do và cấu trúc lệnh lặp while...do
