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