ct in ra bang cuu chuong(de hieu)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

ct in ra bang cuu chuong(de hieu)

Bài gửi by HOANGQUOCCUONG1999 on Wed 12 Jun 2013, 4:28 pm

program  ct;
uses crt;
var q,j,i,dem:integer;
   n:integer;
begin clrscr;
writeln('bang nhan');
for i:=1 to 9 do
    begin
         for j:=2 to 5 do
             begin
              write(j,'x',i,'=',j*i :3,'   ');
              dem:=dem+1;
              if dem =4 then writeln('    ') else dem := 0;
             end;writeln;
    end;writeln;;
begin
for i:=1 to 9 do
    begin
         for j:=6 to 9 do
             begin
              write(j,'x',i,'=',j*i :3,'   ');
              dem:=dem+1;
              if dem =4 then writeln('    ') else dem := 0;
             end;writeln;
    end;readln;
end;
end.
avatar
HOANGQUOCCUONG1999
PRO LÝ
PRO LÝ

Nam
Tổng số bài gửi : 33
điểm điểm : 52
Birthday : 03/04/1999
Job/hobbies : student

Xem lý lịch thành viên http://www.vn-zoom.com/

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết