30/09/2018, 19:46
Cho hỏi về lập trình pascal
Cho trước dãy số gồm các chữ số là ước của số nguyên dương n.
Tìm các chữ số mà tổng của chúng bằng n
Bài liên quan
Tác giả nổi bật
Từ khóa nổi bật
AngularJS
Blog
Bootstrap
C / C++
Cấu trúc dữ liệu & Giải thuật
Cơ sở dữ liệu
Codeigniter
Công cụ lập trình
CSS
CSS cơ bản
CSS3
Học Excel
HTML
HTML cơ bản
HTML5
Java
Javascript
jQuery
Json
Lập trình mobile
Laravel
Linux
MongoDB
MySQL
NodeJS
Oracle
Pascal
PHP
PHP cơ bản
PHP nâng cao
Python
React Native
ReactJS
Ruby
SEO
SQL Server
Swift
Visual Basic
VueJS
WordPress
XML
Chủ đề nổi bật
- 1 Cài đặt phần mềm cần thiết cho học lập trình web
- 2 Tự Học HTML Cơ Bản Online Miễn Phí Từ A đến Z
- 3 Seo website dành cho dân IT
- 4 REACT NATIVE
- 5 sdfdsf
- 6 Lập trình di động với React Native
- 7 Vue.js
- 8 Kiếm thức cơ bản HTML CSS
- 9 So sánh count() và sizeof() 2 phần tử đếm mảng
- 10 Toán tử và biểu thức của php
0
Số đó gọi là Perfect đó bạn!
function perfect(n:word)boolean;
begin
s:=0; perfect:=false;
for i:=1 to n do if n mod i =0 then s:=s+i;
if s=2*n then perfect:= true;
end;