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à lão niên. Biết rằng: nếu tuổi nhỏ hơn 18 là thiếu niên, từ 18–>39 là thanh niên, từ 40 đến 60 là trung niên và lớn hơn 60 là lão niên.
Giúp mình với, đang cần gấp, mai kiểm tra ồi huhu T^T
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.
Uses crt;
Var a, b, c ,d:integer;
Begin clrscr ;
Write(‘nhap a, b, c,d’); readln(a,b,c,d);
If a <18 then write(‘LA Thieu nien ‘);
If b >= 18
Else b<=39 then write(‘LA Thanh nien ‘);
If c>=40
Else c<=60 then write (‘LA thing nien ‘);
If d >60 then write (‘LA Lao nien ‘);
Readln;
End.