Ngừng hoạt động !

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

TonMeans


    Chương trình 15

    Admin
    Admin
    Admin


    Tổng số bài gửi : 239
    Join date : 19/05/2011
    Age : 28
    Đến từ : VietNam

    Chương trình 15 Empty Chương trình 15

    Bài gửi  Admin Sat May 21, 2011 10:05 pm

    USES crt;
    VAR N, i: INTEGER;
    BEGIN
    clrscr;
    write('Nhap so N='); readln(N);
    writeln;
    writeln('Bang nhan ',N);
    writeln;
    FOR i:=1 TO 10 DO writeln(N,'x', i:2,'=', N*i:3);
    readln
    END.

    Download: http://www.mediafire.com/?a2v9xebkv601xgt

      Hôm nay: Sun May 19, 2024 8:26 pm