XEM BAI CUA yugioh_thcsch2

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

XEM BAI CUA yugioh_thcsch2

Bài gửi by HOANGQUOCCUONG1999 on Thu 28 Mar 2013, 9:25 am

program snt;
uses crt;
var a,n,i:integer;
u: array[1..99] of integer;
begin
clrscr;
n:=0;
write('So can kiem tra la a= '); readln(a);
if a>=2 then begin
for i:=1 to a do
if a mod i = 0 then begin n(THIEU DAU HAI CHAM)=n+1; u[i]:=i end;
if n=2 then writeln(a,' la so nguyen to')
else begin
writeln('Cac uoc so cua ',a,' la:');
for i:=1 to a do
if u[i]<>0 then write(u[i]:6);
end;
end;
readln;
end.
CHUA HIEN THI DC KET QUA SO DO LA HOP SO
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

Re: XEM BAI CUA yugioh_thcsch2

Bài gửi by yugioh_thcsch2 on Thu 28 Mar 2013, 6:18 pm

Bài này anh viết còn sơ sài, với lại lúc ấy viết vội nên ko kịp soát lỗi Wink)

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Đừng bao giờ tự thỏa mãn vì những gì đã làm được, hãy luôn cố tự thực hiện những điều mình chưa làm được, đỉnh cao trí tuệ không bao giờ đón chào những kẻ tự cao.
avatar
yugioh_thcsch2
PRO TOÁN
PRO TOÁN

Tổng số bài gửi : 124
điểm điểm : 182
Birthday : 08/02/1998
Đến từ : Thái Nguyên
Job/hobbies : học sinh

Xem lý lịch thành viên

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