Câu 1: Viết chương trình nhập vào một sô nguyên dương y từ bàn phím. Hãy viết chương trình pascal số y có chia hết cho 5 hay không và in kết quả ra màn hình.
Câu 2: Viết chương trình nhập vào 3 số thực m,n,h. Hãy viết trương trình pascal tìm điểm lớn nhất trong 3 số đó và in kết quả ra màn hình.
Câu 3: Viết chương trình nhập vào 2 số nguyên x,y từ bàn phím. Em hãy viết chương trình pascal sắp xếp 2 biến trên theo giá trị tăng dần và in ra màn hình kết quả đã sắp xếp.
1)Program songuyenduong;
Uses crt;
Var y: integer;
Begin
clrscr;
writeln('nhap so y'); readln(y);
if (y mode 5)=0 then writeln(y,'chia het cho 5')else write(y,' khong chia het cho 5');
readln;
End.
2)
Program solonnhat;
uses crt;
var m,n,h,max: real;
Begin
clrscr;
writeln('nhap so m'); readln(m);
writeln('nhap so n'); readln(n);
writeln('nhap so h'); readln(h);
max:=m;
if m < n then max:=n;
if max < h then max=h then write('so lon nhat',max);
readln;
End.