Question

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 60 là lão niên.

Mọi người giúp mik nha

Answer 1

never

Answer 2

Program Sara_Trang;

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.

Answer 3

uses crt;
var tuoi:integer;
begin
clrscr;
write('nhap tuoi cua nguoi do: '); readln(tuoi);
if tuoi<18 then writeln('nguoi nay la thieu nien');
if (tuoi>=18) and(tuoi<=39) then writeln('nguoi nay la thanh nien');
if (tuoi>=40) and (tuoi<=60) then writeln('nguoi nay la trung nien');
if tuoi>60 then writeln('nguoi nay la cao nien');
readln;
end.