Câu 1: Xác định INPUT, OUTPUT và viết chương trình nhập 3 số dương a,b,c từ bàn phím. Kiểm tra và in ra màn hình kiểm tra 3 số đó có thể là độ dài các cạnh của 1 tam giác hay không?
Câu 2: Viết chương trình nhập vào tháng bất kì trong năm. Hãy cho biết tháng đó thuộc mùa nào trong năm ( biết rằng mùa đông gồm tháng11;12;1. Mùa xuân gồm tháng 2;3;4. Mùa hè gồm tháng 5;6;7. Mùa thu gồm tháng 8;9;10)
Câu 3: Viết chương trình nhập vào số thứ tự các ngày trong tuần. Hãy cho biết đó là ngày thứ mấy?( vd: số thứ tự là 1 sẽ là ngày thứ hai.....số thức tự là 7 sẽ là chủ nhật).
2)
program bai2;
var thang:byte;
begin
repeat
write('Nhap thang vao day ');readln(thang);
until thang>0;
case thang of
2,3,4:writeln('Thang ',thang,' la mua xuan');
5,6,7:writeln('Thang',thang,'la mua ha');
8,9,10:writeln('Thang',thang,'la mua thu');
11,12,1:writeln('Thang',thang,'la mua dong');
readln
end.
program bai1;
var thu:byte;
begin
repeat
write('Thu= ');readln(thu);
until (thu>0) and (thu<8);
if (thu<>1) and (thu<>7) then writeln('Hom nay la thu ',thu);
if thu=1 then writeln('Hom nay la thu ',thu);
if thu=7 then writeln('Hom nay la thu ',thu);
readln
end.
