ct in ra bang cuu chuong(de hieu)

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

Về Đầu Trang


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