Viết chương trình
1/nhập một số bất kỳ, kiểm tra số vừa nhập là số chẵn hay lẽ
2/Viết chương trình nhập vào 3 số nguyên a,b và c. Sau đó tính trung bình(TB) của 3 số đó, hãy cho biết: nếu TB>5.0 thì xếp loại đạt ngược lại không đạt. hãy in ra trung bình và xếp loại ra màn hình dịch.(mong mọi người giúp đỡ, chiều nay em thi )
1.
program btsydn;
uses crt;
var a: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
if a mod 2 = 0 then write(a, ‘ la so chan’) else (a, ‘ la so le’);
readln
end.
2.
program btsydn;
uses crt;
var a, b, c, tb: integer;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
write(‘Nhap c = ‘); readln(c);
tb:=(a+b+c)/3;
write(‘Trung binh 3 so: ‘, tb);
if tb>5 then write(‘Dat’) else write(‘Khong dat’);
readln
end.