Question

Viết chương trình passcal nhập số nguyên N, m(0<N,m<65535) kiểm tra N có phải là hằng số Kaprekar không.

Mong mọi người giúp đỡ ạ!

Answer 1

Lời giải :

program kiemtra ;

var N : integer ;

begin

write(' nhap gia tri cua N '); readln(N)

if N=1 then write('N la hang so Kapekar') else write('N khong phai la hang so Kapekar');

readln

end.

Answer 2

VD:2025 tách ra 20+25=45 mà 45^2=2025 thì là số kaprekar phải k

Answer 3

Lời giải :

program hotrotinhoc ;

var N : integer ;

write('Nhap gia tri N='); Readln(N);

If N=6174 then write('N la hang so Kaprekar') else write('N khong phai la hang so Kaprekar');

readln

end.