1. Vt chương trình nhập vào năm sinh của 1 ng và cho biết ng đó đã đủ tuổi để vào đại học chưa ( biết rằng vào đại học khi 18 tuổi trở lên).
2. Vt chương trình nhập vào một số nguyên từ bàn phím và thông báo đó là số nguyên âm hay nguyên dương.
3. Vt chương trình nhập vào hai số bất kì từ bàn phím, thông báo cho biết số nào lớn hơn.
4. Vt chương trình nhập vào một số nguyên từ bàn phím, thông báo số vừa nhaajplaf chẵn hay số lẻ.
5. Vt chương trình nhập vào điểm trung bình của ba môn Toán, Văn, Tiếng Anh cho biết ng đó có đậu vào lớp 10 hay k, biết rằng điểm chuẩn vào lớp 10 là 20 điểm.
1. program daihocthangtien;
uses crt;
var tuoi,ns,nht:longint;
begin
clrscr;
write('Nhap nam sinh');readln(ns);
write('Nhap nam hien tai');readln(nht);
tuoi:=nht-ns;
if tuoi>=18 then write('Ban da du tuoi vao dai hoc')
else write('Ban chua du tuoi vao dai hoc');
readln
end.
2.
program bai2;
uses crt;
var n : longint;
begin
clrscr;
write('nhap so n ='); readln(n);
if n >= 0 then write(n , ' la so nguyen duong')
else write(n , ' la so nguyen am ');
readln;
end.
3.
program bai3;
uses crt;
var a,b: longint;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
if a>b then writeln('a lon hon b ') else
writeln('a nho hon b ');
readln;
end.
4.
3.
program bai3;
uses crt;
var a: longint;
begin
clrscr;
write('nhap so a ='); readln(a);
if a mod 2 = 0 then writeln('a la so chan ') else
writeln('a la so le ');
readln;
end.
5.
Program bai5;
uses crt;
var t,v,a,dtb: real;
begin
clrscr;
repeat
write('nhap diem toan ='); readln(t);
write('nhap diem van ='); readln(v);
write('nhap dien anh ='); readln(a);
until (t>=0) and (v >=0) and (a >=0);
dtb:=(t+v+a)/3;
writeln('dien trung binh la :' ,dtb:4:2);
if dtb <=20 then writeln('khong dau lop 10 ') else
writeln('dau lop 10 ');
readln;
end.
không biết có đúng không nữa.
