Ta cho số n là số đẹp nếu tổng các chữ số của nó là số nguyên tố

Số 331 là số đẹp vì :3+3+1=7

Mà 7 là số nguyên tố

Nhập số nguyên dương n bất kỳ

Kiểm tra số n đó có phải lag số nguyên tố hay không

Dùng những các cơ bản cuat lớp 8

Ngôn ngữ pascal

2 câu trả lời

var n:int64;
 procedure nhap;
 begin
        assign(input,'random.inp');
        reset(input);
        read(n);
        close(input);
 end;
 function kt(n:longint):boolean;
 var i:longint;
 begin
        kt:=true;
        if n < 2 then exit(false);
        for i := 2 to trunc(sqrt(n)) do
        begin
                if n mod i = 0 then exit(false)
                else kt:=true;
        end;
 end;

 procedure xuly;
 var i,s,du:longint;
 begin
        s:=0;
        while n <> 0 do
        begin
                 du := n mod 10;
                 n:=n div 10;
                 inc(s,du);
                 //writeln(du);
        end;
        if kt(s) then writeln('true')
        else writeln('false');
 end;
 procedure xuat;
 begin
        assign(output,'random.out');
        rewrite(output);
        xuly;
        close(output);
 end;
begin
        nhap;
        xuat;
end.

//Sửa câu " Kiểm tra số n đó có phải lag số nguyên tố hay không" thành " Kiểm tra số n đó có phải là số nguyên tố Đẹp hay không" =)))
@Hômnaytôibịrob