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

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 510 03/08/2023


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

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

Lời giả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.

1 510 03/08/2023


Xem thêm các chương trình khác: