De cuong on tap tin 8 HK2

Câu hỏi ôn tập hk2
Bài 1 : Viết chương trình tính tiền điện với tiền điện = số kwh * 1,500 , số kwh nhập từ bàn phím
Bài 2 : Nhập họ và tên , năm sinh in ra số tuổi 
Bài 3: Viết chương trình tính điểm trung bình của Toán , Lý , Hóa
Bài 4 : Viết chương trình tính tổng bình phương 2 số nguyên , 2 số nguyển nhập từ bàn phím 
Bài 5 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 hay không .
Bài 6 : Viết chương trình nhập vào 3 số nguyên A , B và C . In ra thứ tự từ bé đến lớn
Bài 7 : Viết chương trình tính tổng từ 1 --> 50  Bài 8 : Nhập vào 1 số nguyên N . In ra tổng các số từ 1/1.2+1/2.3+1/3.4+…+1/n(n+1) .  Bài 9 : In ra bảng cưu chương N , N nhập từ bàn phím  Bài 10:Nhập vào 1 số nguyên N < 20 . In ra tích các số chẵn tứ 1 đến N . Bài tập 11:Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi biết ba cạnh của tam giác.
Bài tập 12:Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n (Với n được nhập).
Bài tập 13:Viết chương trình cho phép nhập n số và in ra theo thứ tự ngược lại. Ví dụ nhập 3, 5, 7 thì in ra 7, 5, 3.
Bài tập 14: Viết chương trình nhập dãy n số và in ra tổng các số lẻ trong dãy số vừa nhập.
Bài tập 15: Viết chương trình nhập dãy n số và in ra dãy số, giá trị lớn nhất của dãy số vừa nhập.


Bài 1: program vd;
uses crt;
var tiendien,kwh:real;
begin
writeln(`Đây là chương trình tính tiền điện`);
writeln(`Nhập kwh=`);readln(kwh);
tiendien:=kwh*1500;
write(`tiendien=`,tiendien:5:2);
end.
Bài 2 : program vd;
uses wincrt;
var a,tuổi:integer;
b:string;
begin
writeln(`HovaTen`);readln(b);
writeln(`Nhap Nam sinh`);readln(a);
tuổi:=2016-a;
writeln(`tuổi=`,tuổi);
end.
Bài 3: program dtb;
uses crt;
var Toán,Lý,Hóa,tb:real;
begin
writeln(`Nhập điểm toán=`);readln(Toán);
writeln(`Nhập điểm lý=`);readln(Lý);
writeln(`Nhập điểm hóa=`);readln(Hóa);
tb:=(Toán+Lý+Hóa)/3
write(`Điểm trung bình của Toán , Lý , Hóa=`,tb:5:2);
end.
Bài 4: program vd;
uses crt;
var songuyen1,songuyen2,tbp:real;
begin
writeln(`Nhập số nguyên thứ nhất=`);readln(songuyen1);
writeln(`Nhập số nguyên thứ hai=`);readln(songuyen2);
tbp:=(songuyen1+songuyen2)*( songuyen1+songuyen2);
write(`Tổng bình phương 2 số nguyên=`,tbp:5:2);
end.
Bài 5 : program vd;
uses crt;
var N:integer;
begin
writeln(`Nhập N=`);readln(N);
If N mod 2 = 0 then write(`N chia hết cho 2`);
If N mod 2 <> 0 then write(`N không chia hết cho 2`);
readln
end.
Bài 6: program vd;
uses crt;
var A,B,C:integer;
begin
write(`Nhập số nguyên thứ nhất=`);readln(A);
write(`Nhập số nguyên thứ hai=`);readln(B);
write(`Nhập số nguyện thứ ba=`);readln(C);
If (A > B) and (A > C) and (B > C) then write(`C,B,A`);
If (A > C) and (A > B) and (C > B) then write(`B,C,A`);
If (B > A) and (B > C) and (A > C) then write(`C,A,B`);
If (B > C) and (B > A) and (C > A) then write(`A,C,B`);
If (C > A) and (C > B) and (A > B) then write(`B,A,C`);
If (C > B) and (C > A) and (B > A) then write(`A