câu 1. Hãy nhập 5 số tự nhiên bất kì từ bàn phím . em hãy viết chương trình tính tổng 5 số đó bằng câu lệnh lặp While….do
câu 2. Hãy viết chương trình tính tổng 7 số tự nhiên bất kì được nhập từ bàn phím bằng câu lệnh lặp For…do
câu 3. Viết chương trình tính tổng N số tự nhiên đầu tiên bằng câu lệnh lặp While…do
câu 4. Viết chương trình tính tích 5 số bất kì nhập từ bàn phím bằng câu lệnh lặp While…do
Tất cả chương trình mình đều đã chạy thử:
Câu 1:
Hình 1;
Câu 2:
Hình 2;
Câu 3:
Hình 3;
Câu 4:
Hình 4;
CÂU1
var i,n: integer;
s:longint;
begin
write(‘nhap so n=’);readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i; i:=i+1;
end;
write(‘tong cua’,n,’ so tu nhien dau tien la’,s);
readln
end.
CÂU2
program tong;
uses crt;
var n,i: integer;
s: longint;
begin clrscr;
write(‘Nhap so n: ‘); readln (n);
s:=0;
for i:=1 to n do
s:=s+i;
write(‘Tong la: ‘,s);
readln;
end.
CÂU3
program Tinh_hieu;
var n,i: integer;
S: longint;
begin
write(‘Nhap so n=’); readln(n);
S:=0;
for i:=1 to n do S:=S-i;
writeln(‘Hieu cua ‘,n,’ so tu nhien dau tien S=’, S);
readln
end.
CÂU4
Bước 1: Nhập n và nhập dãy số
Bước 2: tb←0; i←1;
Bước 3: tb←tb+x[i];
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4
Bước 6: Xuất tb/n;
Bước 7: Kết thúc