1. Viết chương trình nhập vào tuổi của một người và cho biết người đó lá thiếu niên, thanh niên, trung niên hay lão niên. Biết rằng: nếu tuổi nhỏ hơn 18 là thiếu niên, từ 18 đến 39 là thanh niên, từ 40 đến 60 là trung niên và lớn hơn là lão niên.
GIÚP MÌNH
program Tuoi;
uses crt;
var i: integer;
Begin
clrscr;
write(‘Nhap tuoi cua ban’); readln(i);
if (i<18) then writeln(‘Ban la thieu nien’)
else if (i>=18) and (i<=39) then writeln(‘Ban la thanh nien’)
else if (i>=40) and (i<=60) then writeln(‘Ban la trung nien’)
else writeln(‘Ban la lao nien’);
readln;
End.
Program Yên yên
Uses crt;
Var tuoi:Byte;
Begin
clrscr;
Write(Nhap vao tuoi cua mot nguoi:’); Readln(tuoi);
Case tuoi Of
1..17: Writeln(Nguoi nay la thieu nien’);
18..39:Writeln(Nguoi nay la thanh nien’);
40..60:Writeln(Nguoi nay la trung nien’);
Else Writeln(Nguoi nay la lao nien’);
End;
Readln
End.