SỐ ĐẸP Câu 1 : Người ta định nghĩa số nguyên dương N được goi là số đẹp nếu : Tổng các chữ số của N chia hết cho số lượng chữ số của N . Ví dụ : 15 là số đẹp 1+5=6 chia hết số chữ số của 15 là 2 Cho số nguyên dương N kiểm tra xem N có phải là số đẹp ? Dữ liệu vào : |Đọc dữ liệu từ file SODEP.INP Chứa số nguyên dương N (2≤N≤10^100) Kết quả ra : ghi vào file SODEP.OUT giá trị 1 nếu là N là số đẹp , ghi 0 nếu không phải Ví dụ: SODEP.INP 15 121 SODEP.OUT 1 0 50% test có N ≤ 10^18; 50% test có 10^20<N≤10^100

Code chạy pascal:

var n,j,m,d,i:longint;
s:string;
function tcs(x:longint):longint;
begin
tcs:=0;
for j:=1 to length(s) do
begin
val(s[j],m);
tcs:=tcs+m;
end;
end;
begin
read(n);writeln;
str(n,s);
for i:=1 to length(s) do
d:=d+1;
if (tcs(n) mod d=0) then write(1) else write('0');
readln;
readln;
end.

*Do n khá cao nên khuyên dùng python
C++ (3 ảnh đầu):

#include <bits/stdc++.h>
using namespace std;
long long tongchuso(string n)
{
    long long t=0;
    for (char i:n)
        t+=(i-'0');
    return t;
}
int main()
{
    ifstream fi;
    ofstream fo;
    fi.open("SODEP.INP", ios_base::in);
    fo.open("SODEP.OUT", ios_base::out);
    string n;
    fi >> n;
    if (tongchuso(n)%n.length()==0) fo << 1;
    else fo << 0;
    fi.close();
    fo.close();
}
Python (2 ảnh cuối do hoidap247 chỉ cho tối đa 5 ảnh (kết quả là 1)):

fi=open("SODEP.INP","r")
fo=open("SODEP.OUT","w")
n=list(map(int,fi.readline().replace(""," ").split()))
if (sum(n)%len(n)==0): fo.write("1")
else: fo.write("0")
fi.close()
fo.close()

$\color{red}{\text{Daoanhviet96}}$