Question

1. Viết chương trình nhập vào số nguyên N in ra màn hình có chia hết cho 2 hay không?

2. Viết chương trình nhập vào 3 số nguyên a, b, c in ra thứ tự từ bé đến lớn.

3. Viết chương trình tính tổng N số tự nhiên đầu tiên. N được nhập từ bàn phím.

4. Viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng N. N dược nhập từ bàn phím.

5. Viết chương trình tính tổng twg 1->50.

6. Viết chương trình nhập vào số nguyên N<20. In ra tích các số chẵn từ 1->N.

7. Viết chương trình cho phép nhập N số vag in ra theo thứ tự ngược lại.

8. Viết chương trình nhập vào một dãy số và in ra tổng các số lẻ trong dãy số cần nhập.

9. Viết chương trình nhập vào 1 dãy số từ 1->N và thực hiện các công việc sau:

a. In ra màn hình giá trị lớn nhất, nhỏ nhất của dãy số.

b. In ra màn hình tổng các phần tử của dãy.

c. In ra màn hình giá trih trung bình của dãy.

Answer 1

1.

var n:longint;
begin
write('Nhap n = ');
read(n);
if n mod 2=0 then writeln('n chia het cho 2')
else writeln('n khong chia het cho 2');
end.

Answer 2

2. (Bài này làm mảng dễ hơn nha)

var a,b,c:longint;
begin
read(a,b,c);
if (a>=b) and (b>=c) then writeln(c,' ',b,' ',a)
else if (a>=b) and (a>=c) then writeln(b,' ',c,' ',a)
else if (a>=b) then writeln(b,' ',a,' ',c)
else if (a>=c) then writeln(c,' ',a,' ',b)
else if (b>=c) then writeln(a,' ',c,' ',b)
else writeln(a,' ',b,' ',c);
end.

3.

var i,n,tong:longint;
begin
write('Nhap n = ');
read(n);
for i:=1 to n do
tong:=tong+i;
write(tong);
end.

Answer 3

4.

var i,n,tong:longint;
begin
write('Nhap n = ');
read(n);
for i:=1 to n do
if i mod 2=1 then tong:=tong+i;
write(tong);
end.

5.

var tong:longint;
begin
for i:=1 to 50 do
tong:=tong+i;
write(tong);
end.