Question

Ai giúp em câu này với:

Nhập vào 1 số nguyên từ bàn phím, in ra màn hình theo yêu cầu sau: - nếu là 2 -> 7 thì in ra : đây là thứ (2-7) - nếu là 8 thì in ra: đây là chủ nhât còn ngoài ra thì in ra: không phải ngày trong tuần.

Answer 1

uses crt;
var n,i,kt:integer;
begin
clrscr;
write('n='); readln(n);
kt:=0;
for i:=2 to 8 do
if n=i then kt:=1;
if kt=1 then
begin
case n of
2..7:write('Day la thu ',n);
8: write('Day la chu nhat');
end;
end
else writeln('Day khong phai ngay trong tuan');
readln;
end.