Viết chương trình dịch các ngày trong tuần ra tiếng anh

Câu 17: Viết chương trình dịch các ngày trong tuần ra tiếng anh

Trả lời

program ctpt;

uses crt;

  var tuan: integer;

begin

            clrscr;

            write('Nhap bat ki 1 thu trong tuan: '); readln(thu);

            case thu of

                     2 : write('Thu hai - Monday');

                     3 : write('Thu ba - Tuesday');

                     4 : write('Thu tu - Wednesday');

                     5 : write('Thu nam - Thursday');

                     6 : write('Thu sau - Friday');

                     7 : write('Thu bay - Saturday');

                     8 : write('Chu nhat - Sunday');

                     else write('Nhap sai!');

            end;

            readln

end.