Tin hoc tre
Chia sẻ bởi Đặng Hồng Dự |
Ngày 06/11/2018 |
35
Chia sẻ tài liệu: tin hoc tre thuộc Tin học 9
Nội dung tài liệu:
program vd; var s, a, j, i, :longint; begin s:=0;a:=0; for i:=1 to 100000 do begin for j:=1 to i-1 do if i mod j=0 do a:=a+j; if a=i then write(i); a:=0; end; readln end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Đặng Hồng Dự
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)