var
s:ansistring;
i,n,l,m,j,t:longint;
function nt(x1:longint):boolean;
begin
nt:=true;
if x1<2 then nt:=false;
if x1=2 then nt:=true;
if x1>2 then
for j:=2 to trunc(sqrt(x1)) do
if x1 mod j=0 then nt:=false;
end;
function tcs(x:longint):longint;
begin
str(x,s);
tcs:=0;
for i:=1 to length(s) do
begin
val(s[i],m);
if nt(m) then
tcs:=tcs+m;
end;
end;
begin
read(n);

t:=tcs(n);
write(t);
end.

Hướng dẫn:

- Gán tổng S với giá trị ban đầu là 0

- Sử dụng để lấy từng chữ số của số tự nhiên N bằng cách:

Lặp trong khi mà N còn > 0 thì

+ Gán k là chữ số cuối cùng của N.

+ Tiến hành cắt chữ số cuối cùng của N đi bằng việc lấy N chia cho 10.

+ Cộng dồn S: = S + k

Lặp lại cho đến khi N = 0 thì dừng

Chương trình:Program tong; Uses crt; Var n , s , k: integer; // Khai bao bien su dung Begin Write(‘ Nhap N:’); // Thong bao nhap lieu Readln(N ); // Nhap gtri cho N S := 0; While ( N <> 0 ) do // Lap trong khi N con ≠ 0 Begin k := N mod 10; // Lay chu so hang don vi o cuoi cung N := N div 10; // Cat chu so hang don vi da duoc lay ra S := S + k; // Tinh tong cong don vao S End; Writeln( ‘Tong cac chu so cua ’,N,’ la :’, S); // Xuat ket qua Readln;

như thế này hả