1. Viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 100.
2. Viết chương trình tổng của các lập phương n số tự nhiên đầu tiên, với n được nhập từ bàn phím?
3. Viết chương trình nhập từ bàn phím số nguyên dương n và dãy A gồm n số nguyên dương A1, A2,…, An, sau đó in ra màn hình trung bình các phần tử chẫn trong dãy A.
Bài 1:
Program Bai_1;
Use Crt;
Const: N=100;
Var i, s: Integer;
Begin
clrscr;
s:=0; i:=;
while i <= N do
Begin
i:=i+1; s:=s+i;
End;
Writeln (‘Tong 100 so tu nhien dau tien la’,s);
Readln;
End.
Bài 2:
Program Bai_2;
Use Crt;
Var i, s, n: Longint;
Begin
Writeln (‘Nhap N’);
Readln (n);
s:=0;
for i:=1 to n do
Begin
s:=i+1;
End;
Writeln (‘Tong la’,s);
Readln;
End.
Bài 3:
Program Bai_3;
Use Crt;
Var A: Array [1..100] of Integer;
i, n, s: Integer;
tb: Longint;
Begin
clrscr;
Writeln (‘Nhap N’);
Readln (n);
for i:=1 to n do
Begin
Readln (A[i]);
for i:=1 to n do
s:=s+A[i];
tb:=s/n;
End;
Writeln (‘Gia tri trung binh la’,tb);
Readln;
End.