Kết quả 1 đến 3 của 3

Chủ đề: Về bài tập pascal

  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    0

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    procedure nhap(var a:integer);
    begin
    write('moi ban nhap so chan: ');readln(a);
    end;

    var a:integer;
    begin

    repeat nhap(a) until a mod 2 =0;
    writeln('cam on ban da nhap dung');
    readln;

    end.

  3. #3
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi megamanx852
    procedure nhap(var a:integer);
    begin
    write('moi ban nhap so chan: ');readln(a);
    end;

    var a:integer;
    begin

    repeat nhap(a) until a mod 2 =0;
    writeln('cam on ban da nhap dung');
    readln;

    end.
    Đúng rồi [IMG]images/smilies/funny/beat_brick.gif[/IMG] nhưng thêm đoạn code ghi bạn đã nhập sai mời bạn nhập lại thấy hay hơn thím ạ [IMG]images/smilies/troll.jpg[/IMG]

 

 

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 10:00 AM.
Diễn đàn sử dụng vBulletin® Phiên bản 4.2.5.
Bản quyền của 2024 vBulletin Solutions, Inc. Tất cả quyền được bảo lưu.
Ban quản trị không chịu trách nhiệm về nội dung do thành viên đăng.